UNIBUS SYS EXER AH-8856E-MC JAN 1980 


CZKUAEO copyricHt 75-80 RAGED 


FICHE 1 OF 1 MADE IN USA 





Identification 
tata SEQ 0001 


Product Code: AC-8855E-MC 
Product Name: CZKUAEQ Unibus Systems Fxerciser Diagnostic 


DATE: NOV 79 
Maintainer: Diagnostic Group 
Author: Manuel Soares 


MODIFIED BY: BILL SCHLITZKUS 


The information in this document is subject to change without notice 
and should “at be construed as a commitment by Digital Equipment 
Corporation. gh ahige Equipment A age olga assumes no responsibility 
for any errors that may appear in this manual. 


Di bi phew Equipment Corporation assumes no responsibility for the use or 
jiability of its software on equipment that is not supplied by 
Digital. 
Copyright (C) 1975, 1979 Digital Equipment Corporation 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPGRATION 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DEC TAPE 





Table of Contents 


— 


ABSTRACT 
REQUIREMENTS 


Hardware 
Software 


PROGRAM DESCRIPTION 
Switch Options 
Test 1 thru Test 16 
Sysmac Routines 


ERROR REPORTING 


0 
2.0 
2.1 
i 
3.0 
Sot 
+ 4 
3.3 
4.0 








D 
Page 3 


1.0 ABSTRACT 


This program was created to test PDP-i1's CPU interface circuitry. It 
uses the Unibus Exerciser(s) (UBE) to insure by og operation by 
simulating peripherals which would require the 11-CPU to produce the 
necessary signals. It should be noted that the UBE is a powerful too! 
= wy it is not programmed correctly could cause various problems on 
the Bus. 


2.0 REQUIREMENTS 


2.1 Hardware 


This program assumes the following in proper working condition: 
1. The Unibus, 2. Memory (8K minimum), and 3. UBE(s) (4 maximum). 
If a fourth UBE is being used, its time delay should be set at 100us 
to prevent latency problems in one of the tests. 


With two or more UBE(s), all should have Wl jumpers —— the one 
furthest electrically from the CPU. If there are more than 4 UBE(s) 
on the Unibus the program is not responsible for any problems which 
might occur , since it is programmed to handle a maximum of only 4. 


2.2 Software 


After loading the program the ye, address must be 200, so _ that 
the first time through, the available UBE(s) are determined. In 
addition if one or more UBE(s) are added or removed, the program again 
must be started at 200. Otherwise, to avoid duplicating some 
printouts, the program can be restarted at address 220. 


EERE EERE EERE EERE EERE EER EERE EER 

A SOFTWARE HALT CAN BE CAUSED BY DEPRESSING CONTROL-H ON THE CONSOLE. 
IF 1HE PROGRAM IS HALTED THIS WAY, AND THE PROGRAM IS RESTARTED, 
DEPRESS ANY CONSOLE KEY TO REMOVE THE SOFTWARE HALT CONDITION. 


ARS ASASAAAAAAASALALALAAAAASASALALALRALALASER ARAL ALAA SS SSG 


3.0 PROGRAM DESCRIPTION 


This program was assembled with MACY11 using PDP-11 Maindec Sysmac 
Package . 


1 


SEQ 0003 


3.1 Switc 


The use of 
register 
Location 1 
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h Options 


thes program on processors having a software switch 
necessitates operator interaction: the operator must set up 
76 with the switch register values desired . 


Use 


Halt on Error 

Loop on test 

Inhibit error typeouts 

Inhibit iterations 

Bell on error 

Loop on error 

Loop on test in SWR<5:0> ee : 
If you wish to inhibit all typing excent end of pass 


~ “must put down switch 7, after loading 





WHEN SET, INHIBIT TEST 14 


1 through Test 16 


No Bus grants issued with processor at higher priority than 
bus re st. This test is to insure that any request is not 
honored as long as the processor is at the same or higher 
priority. 


Issuing of non-processor grants and arbitration tests. This 
test will request on through BRS levels with the 
processor status initially at level 7 and make sure the 
device exercises an NPG to do a fun I1-dati, then the 
requests will be repeated while sequentiall Lowering the 
processor status from 7 to 0 to allow arbitration of all 
requests and the issuing of NPG. 


Issuing of Bus grant 7 and arbitration tests. This test 
will arbitrate for a BG7. The requests will be on leveis 
BR7 thru BR4, doing fun 1-dati transfers, and the processor 
status Lowered sequentially from 7 to 0. 


Issuing of Bus grant 6 and arbitration tests. This test 
will arbitrate for a BG6, the requests will be on levels BR6 
thru BR4, doing fun 1-dati transfers, and the processor 
status Lowered sequentially from 6 to 0. 


Issuing of Bus grant 5 and arbitration tests. This test 
will arbitrate for a BGS, the requests will be on levels BRS 
thru BR4, doing fun 1-dat i transfers, and the processor 
status lowered sequentially from 5 to 0. 
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Issuing of Bus grant 4 and arbitration tests. This test 
will arbitrate for a BG4, the requests will be on level BR4, 
doing func 1-dati transfers, and the processor status 
lowered sequentially from 4 to 0. 






TEST 7 = CPU test for no sack time out. This test will check that 
the CPU times out and drops a grant if no sack signal is 
received. If the CPU time out 1s inoperative, the Bus 
exerciser will time out and send the sack signal to prevent 
a Bus hang and set an error flag in CR2. 








TEST 10 - CPU test for receiving sack. This test is to insure that 
the CPU can receive the sack signal; The time delay will be 
set on device 1 and several dati transfers made. If there 
is mot bus late error, the CPU received sack correctly. It 
is assumed that dev 1 time delay is set for 10us. 



























TEST 11 - Passing of grants and interrupt test. This test will set 
off all available devices simultaneously whose only 
functions will be to interrupt, the requests will all be at 
level 7 so that the device closest to tha CPU should receive 
BG7 first and interrupt first, the next closest should 
interrupt next and so on. 


TEST 12 - Address Lines (14 - 17) check. This test will check Bus 
address lines 14 thru 17 by doing a fun 1-dati-npr to those 
addresses. If the addresses don't exist the interrupt 
routine will ignore any no ssyn error. 


TEST 13 - CPU test for ACLO/DCLO sequence. This test checks the 
assertion of ACLO and DCLO and that the CPU traps to the 
correct service routine. If this program is running under 
ACT11 this test will be skipped. 


TEST 14 - Parity error test. This test will cause parity error and 
checks that the CPU traps to the correct vector. 
THIS TEST IS SKIPPED ON MACHINES THAT DON'T HAVE THE SXT INSTRUCTION 
(EG., .1/05 AND 11/20). 
THIS TEST SHOULD BE DESELECTED IF THE MEMORY PARITY OPTION 
IS NOT PRESENT OR NOT ENABLED. 


SWO6=1 INHIBIT TEST 14 


TEST 15 - Multitransfers I. This test will cause any Bus exercisers, 

to 4, to create a lot of traffic on the Bus and check 

that the CPU can handle it; all devices are set off 
simultaneously. 


TEST 16 - Multitransfers II. This test will have the available 
exercisers doing various transfers and/or interrupts at 
different request leveis to further check CPU handling 

capabilities. 















—s SEQ 0006 


TEST 17 = DUMMY END OF PROGRAM. This portion of the program 
is just to see if ‘*H’' has been typed on the console to 
cause a program halt. If there is no ‘“H'’’ the program 
continues b ere to SEOP (end-of-pass routine). 
IF THE PROGRAM IS HALTED THIS WAY, AND THE PROGRAM IS RESTARTED, 
DEPRESS NY CONSOLE KEY TO REMOVE THE SOFTWARE HALT CONDITION. 


3.3 Sysmac Routines 


The “END OF PASS ROUTINE’ thru ‘Power Down and Up Routines’, as listed 
in the program Listing, are the Sysmac package macros. They are 
called out in the source program, some with arguments and some 
without, and are expanded in the Listing. Some macros are necessary 
for the operation of others, so for a complete explanation of all 
available Sysmac Macros see PDP-11 Maindec Sysmac Package (DZQAC-B=-D). 


4.0 ERROR REPORTING 


The minimum amount of information given when an error occurs “s the PC 
of the error cali and the Test number in which it occurred. Cther 
hig se data will by typed out depending on the test being run at 
that time. 





UNIBUS EXERCISER MACY11 _—. ae te th 12:49 
CZKUAE .P11 27-SEP-79 09:25 ABLE OF CONTENTS SEQ 0007 
1 OPERATIONAL SWITCH SETTINGS 
29 BASIC DEFINITIONS 
139 MEMORY MANAGEMENT DEFINITIONS 
196 TRAP CATCHER 
226 ACT11 HOOKS 
237 COMMON TAGS 
295 ERROR POINTER TABLE 
528 eee THE COMMON TAGS 
713 T1 NO BUS GRANTS ISSUED WITH maatt doa AT Han PRIORITY THAN BUS REQUEST 
744 12 ISSUING OF NON=PROCESSOR GRANTS AND ARBITRATION TESTS 
782 T3 ISSUING OF BUS GRANT 7 AND ARBITRATION TESTS 
818 4 ISSUING OF BUS GRANT 6 AND ARBITRATION TESTS 
854 15 ISSUING OF BUS GRANT 5 AND ARBITRATION TESTS 
890 T6 ISSUING OF BUS GRANT 4 AND ARBITRATION TESTS 
926 7 CPU TEST FOR NO SACK TIME OUT 
966 T10 CPU TEST FOR ni hong SACK 
1007 T7711 PASSING OF GRANTS AND INTERRUPT TEST 
1080 T12 ADDRESS LINES (14 = 17) CHECK 
1123 113 CPU TEST FOR ACLO/DCLO SEQUENCE 
1165 T14 PARITY ERROR TEST 
1217 T15 MULTITRANSFERS I 
1280 T16 MULTITRANSFERS I1 
1406 T17 DUMMY END OF PROGRAM 
1803 END OF PASS ROUTINE 
1852 SCOPE HANDLER ROUTINE 
1917 ERROR HANDLER ROUTINE 
1962 ERROR MESSAGE TYPEOUT ROUTINE 
2009 TTY INPUT ROUTINE 
2083 ROUTINE TO SIZE MEMORY 
2197 SAVE AND RESTORE RO-R5 ROUTINES 
2242 TYPE ROUTINE 
2331 BINARY TO OCTAL (ASCII) AND TYPE 
2408 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
2475 TRAP DECODER 
2498 TRAP TABLE 


2517 POWER DOWN AND UP ROUTINES 


I 
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ot a cad a call cl ct i al 
OWWNAMASWN HH OVOONAOUE Wr 


UNIBUS EXERCISER 
CZKUAE .P11 


167400 
000300 


900001 


001100 


00 
177776 


177774 
177772 
177570 
177570 





MACY11 30A(1052) 
27-SEP-79 09:25 
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$SWR=167400 
WRMK 


$s =300 
-TITLE UNIBUS EXERCISER 
;*COPYRIGHT (C) SEPT 79 
7*DIGITAL EQUIPMENT CORP. 
; SMAYNARD , MASS. 01754 


: *PROGRAM BY DIAG. ENG. 


eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s SPACKAGE (MAINDEC=11=DZQAC=C3), JAN 19, 1977. 


$1N 
SBTIL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 


15 HALT ON ERROR 
4 LOOP ON TEST 
3 INHIBIT ERROR TYPEOUTS 
1 INHIBIT ITERATIONS 
BELL ON ERROR 
8 


Se Be Be Be Be 


*epneapnenenennenneenn 


LOOP ON ERROR 
LOOP ON TEST IN SWR<5:0> 
WHEN SET, INHIBIT TEST 14 


6 
* SBTTL BASIC DEFINITIONS 
ia a OF THE STACK POINTER *** 1100 *** 


STACK= 

-EQUIV. EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE ; BASIC DEFINITION OF SCOPE CALL 
Spee | tne DEF INITIONS 
HT= 11 3;CODE FOR HORIZONTAL TAB 


LF= 12 ::CODE FOR LINE FEED 

CR= 15 ;3CODE FOR CARRIAGE RETURN 

CRLF= 200 :CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 ‘PROCESSOR STATUS WORD 

.EQUIV PS,PSW 

STKLMT= 177774 ::STACK LIMIT REGISTER 

PIRQ= 177772 INTERRUPT REQUEST REGISTER 
DSWR= 177570 : HARDWARE SWITCH REGISTER 


DDISP= 177570 HARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= x0 REGIS 


ze RAL TER 
R1= %1 7 GENERAL REGISTER 
R2= %2 7 GENERAL REGISTER 
R3= 23 ze RAL REGISTER 
R4= 24 7;GENERAL REGISTER 
R5= z5 7:GENERAL REGISTER 
R6= 26 is NERAL REGISTER 
R7= 27 ; RAL REGISTER 
SP= %6 ; £3 STACK POINTER 


PC= %7 PROGRAM COUNTER 


K 
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;*PRIORITY LEVEL DEFINI TIONS 
PRO= 0 


NOUESWN-O 


OR 
PRIORITY LEVEL 
3*" "SWITCH REGISTER’’ SWITCH DEF INI TIONS 
SwW15= 100000 


SELF 


1 
1 
1 
1 
1 
1 
1 
1 


— oe 
Who 


1 
BITO9,BIT9 





38 
BS 
‘om 


L 
7 = ISER acre! 30A(1052) 04-OCT-79 12:49 PAGE 5 


27-SEP-79 09:2 BASIC DEFINITIONS SEQ 0011 
B1T08, atts 
1107,B1T7 


—x< 


B1T00,B1TO 


C **CPU’* TRAP VECTOR ADDRESSES 
37 OUT AND OTHER ERRORS 
: [RESERVED AND ILLEGAL INSTRUCTIONS 


DONAUSWN—OOONAUE 


RACE TRAP 
;BREAKPOINT TRAP (BPT) 
;EINPUT/OUTPUT TRAP (IOT) **SCOPE** 


oe FAIL 

uae ale (EMT) **ERROR** 

t:TTY KEYBOARD VECTOR 

itty PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 
.SBTTL MEMORY MANAGEMENT DEF INITIONS 
:*KT11 VECTOR ADDRESS 

MMVEC= 250 

:*KT11 STATUS REGISTER ADDRESSES 


177572 177572 


end al cad cal cael cal ce ed ch ct ee ce cl ct ce el els cee ce ec el cl cl elt a 
NOUS WIR a 


Ww 
*) 


172516 
z*USER ‘'I"* PAGE DESCRIPTOR REGISTERS 


UIPDRO= 177600 
UIPDR1= 177602 
I 77604 


wey rrrrryrtr. 
MAMMA 


UIPDR7= 177616 
z*USER ‘'I’’ PAGE ADDRESS REGISTERS 
UIPARO= 177640 


177654 UIPAR6= 177654 





UNIBUS EXERCISER 
CZKUAE P11 


17C 
171 
172 
173 


mee ee ek ee ed ed ed ed od od 
BELKFRAVLSSELEARATSSIHVRGAR 


000174 
000176 


000200 
000204 


177656 


S88 


ee ee ee 
NNNNNNNN 
MoNnonononononrons 
WWW 

ad ond od od 
aRVO® 


172356 
000000 
000174 
000000 


000200 
005037 
000137 


MACY11 sauheenel 
27-SEP-79 09:25 


001176 
001760 


wae tek 12:49 PAGE 6 
Y MANAGEMENT DEFINITIONS 


UIPAR7= 177656 
;*KERNEL ‘I’ PAGE DESCRIPTOR REGISTERS 
KIPDRO= 172300 


KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDRS= 172312 
KIPDR6= 172314 
KIPDR7= 172316 


;*KERNEL ‘‘I’* PAGE ADDRESS REGISTERS 


KIPARO= 172340 
RIPARI= Ht oy 


KIPAR7= 172356 
-SBTTL TRAP CATCHER 
-=0 
3*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A **.+2,HALT"’ 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
LOCATION, 9 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: “LOND 0 zrSOFTWARE DISPLAY REGISTER 


SUREG: “WORD 0 SOFTWARE SWITCH REGISTER 
ce CLR $TMPO :MAKE SURE TMPO=0 
JMP ss @WSTART :JUMP TO START 


PT LAVILATILATIAATILATILATILATILATILATILATILATILATILATTAATILATILA TIAA TI AAT 
TL AVIAATILATILATILATILATILATILATIAATILATILA TILA TILA TIAA TIAATIAA TIAA TIAA T 
AN /8N/8N\: vay gS - A AVIAATILATIAATIA ATI LATILATILATIAATIAA TIAA TILA TS 


FOR THE FIRST TIME, OR ANY TIME 


3 *WHE ING THE PROGRAM 
7*AFTER ALTERING THE # OF Sg Ue ON THE BUS, 


;*YOU MUST ST. 


ON AND 
aloe cee oa IF YOU DO NOT WISH 


OUT DEV ADDRESSES AGAIN 


*TO AND T 
s/t\e/: \a/: Nas \a/s\a/s\e/\e/ sr \e/\e/ \ e/a \ es \ a \ es \ a Ne \ as \e 
t/: Ne/s\a/s\m/s\e/s\e/\e/\ a \e/\e/  \a/ \e/ \e/ sr \e/ \ a \ a \ es \ as \e 
WACIFACIFACIZALI FAC AACIAACT FACIAL FAL FACI FAL FAFA FAC AAI AACA 


000220 
000220 012737 000777 001176 
001760 


000226 


000137 


-=220 
MOV #777 ,STMPO zTMPO IS 74) pala FOR RESTART 
JMP @4START ;JUMP TO START 


-SBTTL ACT11 HOOKS 


SEQ 0012 


N 
UNIBUS EXERCISER MACY11 30A(1052) 04-OCT-79 12:49 PAGE 7 
CT11 HOOKS 


CZKUAE .P11 27-SEP-79 09:25 A SEQ 0013 


DDE E EIEIO IIS IIIIOIIIDIDIIDIIDIIIIIDIDDIIIDIDDIIIDIIIDDIINIINE 
HOOKS REQUIRED BY ACT11 
000232 $SVPC=. SAVE PC 
000046 -=46 
015376 3:1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
000052 


-=52 
040000 . 322)SET oo TO 40000 


000232 $SVPC zz RESTORE P 
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CZKUAE P11 27-SEP-79 09:25 COMMON TAGS SEQ 0014 
se -SBTTL COMMON TAGS 
237 5 RARER ARAAEAAAARAEAERA AKER AERA AAARRAAAAERAERERAREEE RARER 
238 3*THIS ag CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
44 ;*USED IN THE PROGRAM. 
241 001100 -=1100 
242 001100 SCMTAG: :3START OF COMMON TAGS 
243 001100 000000 SPASS: 0 3;CONTAINS PASS COUNT 
244 001102 000 STSTNM: .BYTE 0 ;:CONTAINS THE TEST NUMBER 
245 001103 000 SERFLG: .BYTE 0 ; CONTAINS ERROR FLAG 
246 001104 000000 SICNT: 0 ;:CONTAINS SUBTEST ITERATION COUNT 
247 001106 000000 SLPADR: 0 3=CONTAINS SCOPE LOOP ADDRESS 
248 001110 000000 SLPERR: 0 3: CONTAINS Teter RETURN FOR ERROR 
249 001112 000000 SERTTL: .WORD 0 3=CONTAINS TOTAL ERRORS DETECTED 
250 001114 000 SITEMB: .BYTE 0 3:CONTAINS ITEM CONTROL BYTE 
251 001115 001 : wYte - 3 3sCONTAINS MAX. ERRORS PER TEST 
252 001116 000000 SERRPC: .WORD 0 ssCONTAINS PC OF LAST ERROR INSTRUCTION 
253 001120 000000 $SGDADR: .WORD 0 3=CONTAINS ADDRESS OF ‘GOOD’ DATA 
254 001122 000000 S$BDADR: .WORD 0 3;CONTAINS ADDRESS OF "BAD" DATA 
255 001124 000000 SGDDAT: .WORD 0 3=CONTAINS ‘GOOD’ 
256 001126 000000 S$BDDAT: .WORD 0 3;CONTAINS "BAD* DATA 
257 001130 000000 -WORD 0 7 sRESERVED--NOT TO BE USED 
258 001132 000000 -WORD 0 
259 001134 000 $AUTOB: .BYTE 0 ; AUTOMATIC MODE INDICATOR 
260 001135 000 SINTAG: .BYTE 0 3; INTERRUPT MODE INDICATOR 
261 001136 000000 . 0 
262 001140 177570 : -WORD DSWR zsADDRESS OF SWITCH REGISTER 
263 001142 177570 DISPLAY: .WORD DDISP ;sADDRESS OF DISPLAY REGISTER 
264 001144 177560 $TKS: 177560 zeTTY KBD STATUS 
265 001146 177562 $TKB: 177562 :: TTY KBD BUFFER 
266 001150 177564 $TPS: 177564 TTY PRINTER STATUS REG. ADDRESS 
267 001152 177566 $TPB: 177566 :zTTY PRINTER BUFFER REG. ADDRESS 
268 001154 000 Ls: .OVTE @ : CONTAINS NULL CHARACTER FOR 
269 001155 002 SFILLS: .BYTE 2 sCONTAINS # OF FILLER CHARACTERS REQUIRED 
270 001156 912 SFILLC: .BYTE 12 33 INSERT FILL CHARS. AFTER A ‘LINE FEED 
271 001157 000 STPFLG: .BYTE 0 ;""TERMINAL AVAILABLE’ FLAG (811<07>=0=YES) 
272 001160 000000 SREGAD: . 0 ; CONTAINS THE ADDRESS FROM 
273 33WHICH (S$REGO) WAS OBTAINED 
274 001162 000000 SREGO: .WORD 0 3:CONTAINS ((S$REGAD) +0) 
275 001164 000000 SREG1: .WORD 0 3:CONTAINS (($REGAD) +2) 
276 001166 000000 $REG2: .WORD 0 CONTAINS ((S$REGAD) +4) 
277 001170 000000 SREGS: .WORD 0 zzCONTAINS (($REGAD) +0) 
278 001172 000000 SREG4: .WORD 0 : CONTAINS ( (SREGAD) +10) 
279 001174 000000 SREGS: .WORD 0 CONTAINS (($REGAD)+12) 
280 001176 000000 STMPO: .WORD 0 7ZUSER DEFINED 
281 001200 000000 STMP1: .WORD 0 7sUSER DEFINED 
282 001202 000000 STMP2: .WORD 0 7sUSER DEFI 
283 001204 000000 STMP3: .WORD 0 :;USER DEFINED 
284 001206 000000 STMP4: .WORD 0 7 sUSER DEFINED 
285 001210 000000 STMPS: .WORD 0 3sUSER DEFINED 
286 001212 000000 STIMES: 7;MAX. NUMBER OF ITERATIONS 
287 001214 000000 SESCAPE :0 7 ;ESCAPE ON ERROR ADDRESS 
288 001216 177607 000377 $BELL: .ASCIZ > + thetic ati 2 CODE FOR BELL 
289 001222 0 SQUES: .ASCII ; STION MARK 
290 001223 015 SCRLF: .ASCII <i5> 7ICARRIAGE RETURN 





C 
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344 001224 000012 $LF: eASCIZ <12> 3eLINE FEED 


FF RRA RE RR AREA ERARAERAREERE RARER EREREA RARER RAEARREER EEE HE 


SEQ 0015 


D 
UNIBUS EXERCISER MACY11 or. nice haa 12:49 PAGE 10 


CZKUAE P11 27-SEP-79 09:25 RROR POINTER TABLE SEQ 0016 
3° .SBTTL ERROR POINTER TABLE 
295 s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
296 + * THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
297 ; LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE i. is PERTINENT. 
298 ; *NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRP 
344 + *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS FRPLAINED AS FOLLOWS: 
301 :* EM 3z:POINTS TO THE ERROR MESSAGE 
302 3* DH 7:POINTS TO THE DATA HEADER 
303 3* DT ;z;POINTS TO THE DATA 
ie * DF :z:POINTS TO THE DATA FORMAT 
306 
307 001226 SERRTB: 
FT AAA RARER AREER EERE EERE REREAD 
309 FUERA ARATE AREER EEE REE EAE ERA EEN 
310 s ITEM 1 
311 001226 011144 EM] ;CPU TRAPPED THRU LOC 4 -TIME OUT 
312 001230 011212 DH1 ; ADDR S$ERRPC #ERR/TSTA& 
313 001232 015022 DT1 :SREG2, SERRPC ,$TSTNM,0O 
314 001234 000000 
315 s ITEM 2 
316 001236 011243 i eo A BUS GRAN® WIT PSW = 7 
317 [DEV 1 SHOULD NOT HAVF BECOME BUS MASTER 
318 001240 011356 DH2 ‘BE 1DB BE1CC BE1BA BE CR! PSW SERRPC #ERR/TST4 
319 001242 015032 DT2 7$REGO, $REG1, $REG2, $REUS, SREG4, SERRPC,$TSTNM,0 
320 001244 0 
321 sITEM 3 
322 001246 011446 EM3 ;CPU DID NOT ISSUE A BUS NPG 
323 001250 5 DH3 ;BE1CR1 BE1CC FM-PS TO-PS SERRPC #ERR/TST#& 
324 001252 015052 DT3 7 SREGO, SREG1, SREG2, SREG3, SERRPC .STSTNM,0 
325 001254 ene 
327 001256 011561 EM4 ;CPU DID NOT ISSUE BUS GRANT 7 
328 001 011500 DH3 
329 001262 015052 DT3 
330 1264 000000 
331 71TEM 5 
332 001266 011617 EMS ;CPU DID NOT ISSUE BUS GRANT 6 
333 001270 011500 DH3 
334 001272 015052 DT3 
335 001274 
336 7 1TEM 6 
337 001276 011655 EM6 ;CPU DID NOT ISSUE BUS GRANT 5 
338 001 011500 DH3 
339 001302 015052 DT3 
340 001 
341 7 ITEM 7 
342 001306 011713 EM7 ;CPU DID NOT ISSUE BUS GRANT 4 
343 001310 011500 DH3 
344 001312 015052 DT3 
3%45 001314 000000 0 
346 7 1TEM 10 
347 001316 011751 7 ONE OR MORE DEVICES DID NOT INTERRUPT 
248 001320 012017 DH10 :THIS IS THE ORDER IN WHICH THEY INTERRUPTED 


E 
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CZKUAE P11 27-SEP-79 09:25 RROR POINTER TABLE SEQ 0017 
%9 1ST 2ND 3RD 4TH SERRPC MERR/TSTA 
350 001322 015070 DT10 “$REGI, SREG2, $REG3,$REG4,SERRPC,$TSTNM,0 
abba a rem 
353 001326 012155 EM1 ;BUS ADDRESS LINES <A17:A14> DID Bs FUNCTION PROPERLY 
354 001330 012242 DH11 ‘BE1CR1 BE1CR2 BEIBA SERRPC #ERR/TSTA& 
355 001332 015106 DT11 7 S$REG1,SREG2,$REG3,$ERRPC,.$TSTNM,0 
328 001334 000000 Ter 12° 
358 001336 012314 EM12 ;CPU NO SACK TIME OUT LOGIC —-* NEGATE BUS GRANT) 
359 001340 012402 DH12 *BE1CR1 BE1CR2 SERRPC #ERR/TSTA 
360 001342 015122 DT12 7 SREGO,$REG1,SERRPC,$1STNM,0 
361 001344 0 
362 3s ITEM 13 
363 1346 012443 ;CPU DID NOT eee EXECUTE AN ACLO/DCLO SEQUENCE 
364 001350 012526 DH13  SERRPC HERR/TSTA 
365 001352 015134 DT13 *$SERRPC, STSTNM,0 
366 001354 000000 0 
367 7 ITEM 14 
001356 012547 EM14 ;CPU DID NOT TRAP FROM BUS PARITY ERR PA/PB = 0/1 
369 001360 012526 DH13 
370 001362 015134 DT13 
371 001364 
372 7 ITEM 15 
373 001366 012632 EM15 :DEV 1 DID DATIP WITH ROL ON DATOB TO MEMORY 
374 ; THE TRANSFER TO THE FOLLOWING LOC WAS INCORRECT 
375 001370 012775 DH15 {MEMORY ACT a CORRECT 
376 DAT. DATA SERRPC #ERR/TST# SICNT # 
377 001372 015142 DT15 ‘ sREGO, SREG1, ASREGS. SERRPC ,STSTNM,SICNT,O 
378 001374 000000 
379 7 ITEM 16 
001376 013107 EM16 :DEV 3°S DATO TO MEMORY DID NOT EQUAL PATTERN IN R3 
381 001400 012775 DH15 
382 001402 015142 DT15 
383 404 
384 7 ITEM 17 
385 001406 013175 —EM17 ;DEV 4°S DATO TO MEMORY DID NOT EQUAL PATERN IN R4 
386 001410 012775 DH15 
387 001412 015142 DT15 
001414 
389 7 1TEM 20 
001416 013263 EM20 ;DEV 1 DID FUN 1-NPR=DATIP; INCORRECT PATTERN IN MEMORY 
391 001420 012775 DH15 
392 001422 015142 DT15 
393 001424 
394 7 ITEM 21 
001426 013357 M21 ;DEV 2 DID FUN 2=-NPR-DATOB; INCORRECT PATTERN IN MEMORY 
001430 012775 DH15 
397 001432 015142 DT15 
398 001434 Te 93° 
400 001436 013453 EM22 ;BIT 7 OF CR2 SET-CPU 4h wor TIME OUT WITH SACK INHIBITED 
401 001440 013545 DH22 ;DEV # PC SERRPC #ERR/TSTA 
402 001442 015160 DT22 SSTMP4, SREGS, SERRPC .STSTNM,0O 
403 001444 0 


404 sITEM 23 


UNIBUS EXERCISER 


CZKUAE .P11 


407 001452 015160 
408 001454 

409 

410 001456 01366 

411 001460 013545 
412 001462 015160 
ret 001464 

415 001466 013726 
416 001470 013545 
417 001472 015160 
418 001474 

419 

420 001476 013760 
421 001500 013545 
422 001502 015160 
423 001504 

424 

425 001506 014022 
426 001510 013545 
427 001512 015160 
428 001514 

429 

430 001516 014071 
431 0015 013545 
432 001522 015160 
433 001524 

434 

435 001526 014160 
436 

re 001530 014320 
439 001532 015172 
“ref 001534 000000 


442 001536 014413 


454 

455 001560 014320 
001562 015172 

457 001564 


459 001566 014725 
460 


MACY11 or 
27-SEP-79 09:25 


alan haaah 


F 
12:49 PAGE 12 


RROR POINTER TABLE 


0 
7 1TEM3?% 
E 


; ITEM 32 
EM32 


;BIT 11 OF CR2 SET=NO SSYN ON INTR SIGNAL 

;BIT 5 OF CR2 SET=RECEIVED WRONG GRANT 

:BIT 6 OF CR2 SET-B8US LATE 

;BIT 8 OF CR2 SET=DEV DID NOT RECEIVE SSYN 

;BIT 9 OF CR2 SET-WRONG ADDR ON BUS 

BIT 10 OF CR2 SET=DEV RECEIVED OTHER THAN ONE GRANT 


;BKGRND RTN_INSTRUCTIONS OF NEGB'S WERE NOT DONE 
;CORRECTLY TO SREG1 DURING MULTITRANFERS I] 


; ECT 

;DATA DATA SERRPC #ERR/TST# SICNT # 
SREG1, 146463, SERRPC,$TSTNM, SICNT.O 
;DEV 3 DID DATI BUT HAS INCORRECT 
;VALUES IN DATA REGISTER 


;DEV 4 DID NOT INTR THE CORRECT # OF TIMES 


ZLAST DATI XFER BY DEV 1 WAS INCORRECT=- 
EITHER DEV DID NOT WORK OR WRONG DATA WASSET uP 


CPU TRAPPED THRU LOC 9 ont CATCH 
; IMPROPERLY LOADED VECT 


SEQ 0018 





UNIBUS EXERCISER 


CZKUAE P11 


S35 


507 


35 


AMMAR AIIN 
— oe os 
Aus whry—o 


011212 
015022 
000000 


012703 
00502 
022703 


MACY11 ence” 


27-SEP-79 09:25 


000000 000000 


001602 
001724 


G 
Bn am 12:49 PAGE 13 


RROR POINTER TABLE SEQ 0019 
DH1 ; ADDR $SERRPC #ERR/TSTA 
‘ih SREG2, SERRPC ,$TSTNM,0 


og peoneaheonanasonetonneouneuneceqnesaunaqnaqquqneooveaseesesenee 
FEAR RAR RRR ERA ERE AEE EERE ERE EAAEAAEAEEEREERAEKER ERE 
ITTITI TIT ITII TILL LLL LLL LLL LLL LLL EEE E EEE EEL ELLE LLL 


ALLERR :7740 sALL_ERR BITS OF CR2 
SIMLGO :170014 :ADDR TO SET OFF ALL ho SIMOL TANEOUSLY 
PBVEC =114 ; TRAP VEC FOR PARITY ERROR 
PBPSW =116 :PSW ADDR FOR TRAP ON PARITY ERR 
BEIDB = =:0 ;DATA_REG ADDR FOR DEVIC 
BEICC §=.:0 CYCLE COUNT REG ADDR FOR DEV 1 
BEIBA :0 EG ADDR FOR DE 
BEICR1 :0 :CONTROL REG 1 ADDR FOR DEV 1 
BEICLR :0 CLEAR ERRS REG ADDR FOR DFV 1 
BE1C :0 ; EG 2 ADDR FOR DEV 1 
BE2 :0 :DATA_REG ADDR FOR DE 
BE2*C 83—_ :0 :CYCLE COUNT REG ADDR FOR DEV 2 
BE :0 ; REG ADDR FOR D 
BE2CR1 :0 iC REG 1 ADDR FOR DEV 2 
BE2CLR :0 CLEAR ERRS REG ADDR FOR DEV 2 
BE2CR2 :0 : REG 2 ADDR FOR_DE 
30B —s:0 :DATA_REG ADDR FOR DE 
BE3SCC =. :0 CYCLE COUNT REG ADDR FOR DEV 3 
BE3BA_ ss :0 ADDR REG ADDR FOR 
BESCR1 :0 : CONT REG 1 ADDR FOR DEV 
BESCLR :0 CLEAR ERRS REG ADDR FOR DEV_3 
BESCR2 :0 : G 2 ADDR FOR DE 
408 ==:0 TA_REG ADDR FOR DE 
BE4SCC 3 CYCLE COUNT Fon be FOR DEV 4 
BES4CR1 :0 ;CONTROL REG 1 ADDR FOR DEV 4 
BESCLR :0 :CLEAR ERRS REG ADDR FOR DEV 4 
BESCR2 :0 :¢ REG 2 ADDR FOR DEV 
BEIVEC :0 VEC ADDR FOR DEV 1 
BEIPSW :0 ;PSW ADDR FOR TRAP THRU BE1VEC 
BE2VEC :0 ; TRAP VEC ADDR FOR DEV 
2PSwW :0 :PSW ADDR FOR TRAP THRU BE2VEC 
BESVEC :0 RAP VEC ADDR FOR DEV 
BESPSW :0 :PSu ADDR FOR TRAP THRU BESVEC 
BESVEC :0 ; TRAP VEC ADDR _FOR 
BE4PSW = :0 >PSW_ADDR FOR TRAP THRU 
DEVCNT :0 ;CONTAINS # OF DEVICES ON BUS 
DEVS :0,0,0.0 [WILL CONTAIN ADDR(S) oF INTR'G DEVS 
DATA1 :0 ;MAX ADDR TO WHICH DATA XFERRED BY DEV 1 
DAT :0 MAX ADDR TO WHICH DATA XFERRED BY DEV 2 
DAT :0 ;MAX ADDR TO WHICH DATA XFERRED BY DEV 3 
DATAS = :0 MAX ADDR TO WHICH DATA XFERRED BY DEV 4 
ENDMEM :0 ; TAG ENDING DEFINED LABELS 


PPPTTIIIITITI TTI TTITIT TIT TTITITITI TTT Li iit tet 
SL RARER ARERR AERA AAERERAAEARARERAEAAAAAAEARAAAARERERERRER EKER 


CLRRTN: ; 
MOV #BE1DB,R3 :R3 IS POINTER TO BUFFER AREAS 
1$: CLR (R3)¢ [CLEAR BUFFER THEN INCREMENT ADDR 
CMe #ENDMEM, R3 []F POINTER AT LAST BUFFER, EXIT 


Ch | 





I ine 


MACY11 -seinhicianan™ 
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100374 
01 pie rOs 


022703 
101374 
000207 


012737 


013746 


022737 
001002 
000137 


001162 
001210 


001100 
001140 
001100 
015416 
000340 
015674 
000340 
020252 
000340 
020332 
000340 
015242 
001212 
001214 
000001 


177777 


002166 
000176 
000174 
000004 
000200 
010754 
000777 
003252 





H 
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RROR POINTER TABLE SEQ 0020 
BPL 1$ ;1F PLUS, GO BACK AND CLEAR NEXT ADDR 
MOV #SREGO,R3 SNOW START TO 7 bees TEMP. REGISTERS 
2$: CLR (R3)+ ;CLEAR CURRENT ADDR 
CMP #STMPS ,R3 CHECK FOR LAST ATEN REG ADDR 
| 4, i1F NOT » CLEAR NEXT TEMP REG 


. 
J TRAE RRR AREER ERE EERE REE REREAD KE 
SPEAR ERR ERE REE EERE EERE EERE EERE EERE E REAR EEER EEE H 


START: 
.SBTTL INITIALIZE THE COMMON TAGS 
7: CLEAR ron vaahaly oy TAGS (SCMTAG) AREA 


G,R6 3zFIRST LOCATION TO BE CLEARED 
CLR Roe ;:CLEAR MEMORY LOCATION 
CMP #SWR,R6 ; ; DONE? 
BNE ;;LOOP BACK IF NO 
TACK, SP ;;SETUP THE STACK POINTER 


MOV WS 

;r INITIALIZE A FEW VECTORS 
MOV #SSCOPE ,a#IOTVEC Atte VECTOR FOR SCOPE ROUTINE 
MOV #340, aviorvecse : 2sLEVEL 
MOV #SERROR, AMEMTVEC :sEmt VECTOR FOR ERROR ROUTINE 
MOV #340, a#EMTVEC+2 eel L 7 
MOV WSTRAP, AATRAPVEC :; FRAP VECTOR FOR TRAP CALLS 
MOV #340, @#TRAPVEC+2;LEVEL 7 
MOV #SPWRDN , A#PWRVEC ow FAILURE VECTOR 
MOV #340, aMPWRVEC+2 s:LEVEL 7 


MOV SENDCT ,SEOPCT SETUP END-OF -PROGRAM COUNTER 

CLR STIMES 7s INITIALIZE NUMBER OF ITERATIONS 

CLR SESCAPE : 7 CLEAR THE ESCAPE ON ERROR ADDRESS 

MOVB #1, SERMAX sALLOW ONE ERROR PER TEST 

MOV iy eSLPADR i PINITIALIZE THE LOOP ADDRESS FOR SCOPE 
-$L TUP THE ERROR LOOP ADDRESS 


MOV PERR 
::SIZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;;EQUAL TO A ‘1"", SETUP FOR A SOFTWARE SWITCH REGISTER. 

MOV @VERRVEC,-(SP) ;;SAVE ERROR VECTOR 


MOV #64$, a#ERRVEC 72SET UP ERROR VECTOR 
MOV #DSWR, SWR 7: SETUP FOR A HARDWARE SWICH REGISTER 
MOV #DD1SP, DISPLAY 7 7AND A HARDWARE DISPLAY REGISTER 
CMP #~-1,aSWR 72 TRY TO REFERENCE HARDWARE SwR 
BNE 663° pee IF NO TIMEOUT TRAP OC CURRED 
THE HARDWARE SWR IS NOT = -1 
BR 65$ + BRANCH IF NO TIMEOUT 
64$: ay #65$, (SP) tISET UP FOR TRAP RETURN 
65$: MOV #SWREG, = 7zPOINT TO SOFTWARE SwR 
MOV #DISPREG, DISPLAY 
66$: MOV (SP) +, A#ERRVEC 7 RESTORE ERROR VECTOR 
BIT #B1T07,aSwWR 31S SWITCH 7 UP? 
BEQ 3$ [IF NOT, SKIP TYPEOUT 
35 TYPE ~QNO 
CMP #777, $TMPO 31S THIS RESTART FROM LOC 220? 
BNE 5$ 71F NOT,SKIP THE JMP INSTR 
JMP @ATSTi sELSE JUMP TO TEST 1 
5$: 





UNIBUS EXERCISER 
CZKUAE .P11 


012737 


01 
012702 
01 
012703 
022700 
002002 
000137 
012737 
00 


010223 
062702 
010223 
062702 
000731 


000000 
062700 
062702 
012716 
000002 


MACY11 ~~. 
27-SEP-79 09:25 


10342 
000340 
000200 


000020 
000004 
002314 


000060 
000002 
176660 


000006 


001176 


001702 


I 
04-0CT=79 12:49 the ? 
NITIALIZE THE COMMON T 


UP FOR TRAP THRU LOC 0 
Ue TCH PSW_FOR TRAP THRU 0 


7 UP? 
NOT, SKIP TYPEOUT 


LEAR BUFFER AREAS 

3PS=7 FOR TRAP THRU LOC 4 

SET UP POINTER FOR 1ST POSSIBLE DEV ADDR 
SET UP POINTER FOR 1ST POSSIBLE VEC ADDR 
SET UP POINTER FOR DEVICE ADDR LOCATION 
SET UP POINTER FOR INTR ADDR LOCATION 


21S RO > LAST POSSIBLE DEV ADDR? 
; GO TO 10$ . 
ELSE GO TO BGIN 

SET UP TRAP VECTOR FOR TIME OUT 


+SEE IF ACTUAL DEVICE ADDRESS EXISTS 
TRAP VECTOR FOR ERROR CONDITION 


; DEVI 
sREGS CONTAINS LAST DEVICE ADDR 
: INCREMENT POINTER BY 
COUNT # OF tie PER DEVICE 
AFTER 5 REGISTERS 
SARE RECORDED 
ZCLEAR THE COUNTING REGISTER 
zADD 4 TO THE POINTER THEN 
RECORD THE LAST REGISTER ADDRESS 
: INCREMENT POINTER BY 2 
NOW START ny Sa 
THE INTR_VECTOR 
; INCREMENT POINTER BY 2 
;THE INTR VECTOR 
> INCREMENT POINTER BY Y2 
SAND GO SEE IF THER'S ANOTHER DEVICE 


[Ree eRRRA AAA AAA AA AREER RRR ERR EREREREERERER EERE EERE EERE 
eee keene eR AAA A RARE AREER RARER EERE ERE ERERER ERE 


MOV ATHRUO, 0 
MOV #PR 
BIT #81707, aSWR 
BEQ 33$ 
33$: 
OV APROCERRVEC#2 
+ 
MOV #170000,RO 
MOV #510, Re 
MOV #BE1DB,R 
MOV WBE IVER RS 
LODDEV: 
CMP #170060,RO 
BGE 10$ 
JMP BGIN 
10$: 
MOV #NODEV,ERRVEC 
TST (RO) 
MOV #TYMOUT , ERRVEC 
INC DEVCNT 
MOVREG: MOV RO, (R1)+ 
MOV RO, $REGS 
ADD #2,RO 
INCB = $TMPO 
(MPR sa#'5, STMPO 
MOVREG 
CLRBsST. 
ADD #4 RO 
MOV RO. (R1)+ 
ADD #2,R0 
MOVVEC: 
MOV R2, (R3)+ 
ADD #2,R2 
MOV R2. (R3)+ 
ADD #2,R2 
NODEV: 
CMP #170060,RO 
BGT ADD20 
MOV #BGIN, (SP) 


CMP #0 ,DEVCNT 
XNO 


TIME OUT ROUTINE FOR DEVICE CHECK 


(a 


SEQ 9021 


fee POSSIBLE ADDR*S HAVE NOT BEEN CHECKED 


;OUT-GO BACK AND CHECK FOR MORE, 
ELSE CHANGE STACK POINTER 
CHECK FOR NO EXERCISERS 
IF ONE OR oon EXERCISERS, EXIT 

73 TYPE ASCIZ STRING 


BR 64$ T OVER THE C12 
::65$: .ASCIZ <15><12>/THERE ARE NO EXERCISERS ON THE BUS/ 


BNE E 

TYPE -65$ 
64$: 

HALT 
ADD20: ADD #20.R0 

ADD #4,R2 

MOV #LODDEV, (SP) 
EXNO: 

RTI 


D 20 TO POINTER 
‘POINTERSNEXT DEV*S VEC LOCATIONS 
:GO BACK TO LODDEV 


2 
PLATA AAA AAA AAA AA AREA AARE RE RAARERERARAAAAEAAEAAEEAEREREHKER EERE RE 
LP AAAAAAAA AA AAAAAAAAEAAAE RARER ARAARAERAEREAAHHAAERHEKRARAHR REE e Ree 


UNIBUS EXERCISER 


MACY11 ——— 
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011637 
162737 
104001 
000002 


020237 
101766 
000207 


012737 
004737 


013746 
104403 
001 


000 
104401 
0004 36 


104401 
000415 
005037 
012700 


005237 
011037 


001166 
000 


002 


ty 22 
20 


001166 


176260 


04-O0CT=79 12:49 ee 7} as 
NITIALIZE THE COMMON T 


TYMOUT : ; TIME OUT ROUTINE 
(SP) , SREG2 ;THE MOVE IS FOR TYPEOUT REASONS 
SUB #2, $REG2 ; SUBTRACT 2 TO FIND ACTUAL ADDR 
ERROR 1 ;ERR MESSG FOR ILLEGAL TIME OUT 
SERRA REE A REE EEE RE RR ERE RREAREEEAEEREERREE EERE ERRERERE EE 
ppt eee R2 ;ADD 1 TO R2(DEVICE COUNTER) 
CMP —_ ‘SEE IF IT = PREVIOUS COUNT 
aos 3 4 a NOT, CLEAR NEXT DEV REGS 
SIAL AATA ETI ADI LALA AUT UAV 
SALTTITIIIITATTATTTTAAT AAA AAA 
LALLA LLL LELLAL ALLL LALLA LALLA LLL ALLL 
5 #PWRFEAL,PWRVEC ;TAKE CARE OF ofr. 4(S) BEING SET RANDOMLY IN CR2(S) 
PC, STVEC ‘SET UP VEC(S) FOR RANDOM ERRS 
PC,CLRREG ;CLEAR CONTENTS OF ALL AVAILABLE DEVS 
STMPO : EMPORARY REG 
$REGO 
#B1T07,aSWR 
2s :IF UP, GO TO 2$ 
5$ sELSE SKIP THE TYPEOUTS 
ses 73 TYPE ASCIZ STRING 
64$ OVER THE ASCIZ 
<15><12>/THE FOLLOWING # OF EXERCISERS ARE ON THE BUS: / 
DEVCNT,-(SP) 72SAVE DEVCNT FOR TYPEOUT 
; ss --OCTAL ASCII 
0 
,67$ 
66$ >;GET OVER THE ASCIZ 
<15><12>/THE LOWEST ELECT. PRIORITY UBE SHOULD NOT HAVE W1 JUMPER/ 
69S ssTwe ASCIZ STRING 
BR 68$ T OVER THE ASCIZ 
eASCIZ <15><12>/DEVICE ADDRESS(ES) : /<15><12> 


CLR STMPO CLEAR TMPO(USED AS COUNTER) 
MOV WBE 1DB RO [USE RO AS POINTER TO ADDRESSES 


INC STMPO ADD 1 TO TMPO 
MOV (RO) , SREGO :MOVE FOR TYPEOUT REASONS 


SEQ 0022 





UNIBUS EXERCISER MACY11 30A(1052) 04-OCT-79 12:49 ie 17" 
CZKUAE .P11 27-SEP-79 09:25 INITIALIZE THE COMMON TAGS SEQ 0023 


104401 003156 TYPE 71$ iiTYPE ASCIZ STRING 
000405: ? 


BR 0$ 
‘i718: “ASCIZ / DEV/ 
013746 001176 ; $TMPO,=(SP) ; SAVE $TMPO FOR TYPEOUT 
104405 


3-GET OVER THE ASCIZ 


2 


000 “BYTE 0 
104401 003202 73$ ; 
000402 BR res S3GET OVER THE ASCIZ 


013746 001162 MO $REGO,-( SP) +3 SAVE $REGO FOR TYPEOUT 
104403 6 


000014 #14,R0 
001176 STMPO ,DEVCNT SEE IF TMPO = # OF DEVICES 
4$ :I1F NOT, GO TYPE NEXT ADDR 
001223 -SCRLF + TYPE <C(R><LF> 
000004 #4 ,DEVCNT SEE IF THERE ARE 4 DEVICES 
BNE $ s IF NOT,SKIP THE TYPE OUT 
011037 59 ~FORS SELSE TYPE MSSG FOR 4TH DEV 


LEAR RATER ERR RRA EERE RRR ERRRRE AER ERARRER ER RR RRR 

s*TEST 1 NO BUS GRANTS ISSUED WITH PROCESSOR AT HIGHER PRIORITY THAN BUS REQUEST 
3 *THIS TEST IS TO INSURE THAT ANY REQUEST IS ll 
*HONORED AS LONG AS THE PROCESSOR IS AT THE SAME 
[*HIGHER PRIORITY 


4 RRRRERERERERRERERERAERERRERRRRERRRRERERERRR ERR EERE ERE 


TST1: 
PC, CLRREG ;CLEAR CONTENTS OF ALL AVAILABLE DEVS 


176374 MOV WERRCHK ,@BEIVEC ;SET UP DEVICE 1 INTR VECTOR 
176370 #PR7 , @BE 1PSw SET UP DEVICE 1 PSwW VECTOR 
000004 #TYMOUT.ERRVEC SET UP TRAP THRU LOC 4(TIME OUT VEC) 
MOVE PS=7 TO RO 
:MOVE FUN 1-DATI-BR7 TO R1 
:D0 NOG 
;MOVE PS=6 TO RO 
;MOVE FUN 1-DATI-BR6 TO R1 


“MOVE PS=5_ TO RO 
;MOVE FUN 1-DATI-BRS TO R1 


“MOVE PS=4 TO RO 
;MOVE FUN 1-DATI-8R4 TO RI 


PC .NOG :D0_NOG 

#B81T11,aBE1CR] ;SET BIT 11 TO DO FUN 3 

#BI1TOS,@BEICR1 ;SET OFF DEV AT NPR LEVEL 
sALLOW TIME FOR XFER 





UNIBUS EXERCISER MACY11 30A(1052)_ 04-OCT-79 12:49 PAGE 18° 


CZ2KUAE.P11  27=SEP=79 09:25 12 ISSUING OF NON=-PROCESSOR GRANTS AND ARBITRATION TESTS SEQ 0024 
741 FRA REAREAEARRAEEEEEARAERAEEEARRREEREARERERERREREKEREKRRRK 
742 TRTEST 2 ISSUING OF NON=PROCESSOR GRANTS AND ARBITRATION TESTS 
743 :*THIS TEST WILL REQUEST ON NPR THRU BR4 LEVELS 
744 s*WITH THE PROCESSOR STATUS INITIALLY AT LEVEL 7 AND MAKE 
745 [*SURE THE DEVICE EXERCISES AN NPG TO DO A FUN 1-DATI 
746 :*THEN THE REQUESTS WILL SE REPEATED WHILE SEQUENTIALLY 
747 :*LOWERING THE PROCESSOR STATUS FROM 7 T Ow 
748 ;*ARBITRATION OF ALL REQUESTS AND THE ISSUING OF NPG 
749 << RRRRERERRERERRERRERERERERERREERRRRRRREREREEERERREREERERERERREEE 
730 003400 000004 téT2: SCOPE 
75 003402 NPRTST: 

753 003402 012700 000340 MOV #PR7,RO 

754 003406 2%: 

755 003406 123737 001115 001103 CMPB Ht ane SERFLG ;MAX ERRS FOR yi TEST OCCURRED? 
756 03414 100452 BMI ST3 :;BR IF YES TO NEXT TEST 

757 003416 012737 000340 177776 MOV WPR?.P PSw NITI 

758 003424 012777 004506 176230 MOV WERRCHK.@BEIVEC :SET UP VECTOR LOCATION 

759 003432 012777 000340 176224 MOV #PR7,@BEIPSW | :SET UP DEVICE INTR PSW 

760 003440 012777 020510 176140 MOV #ATEND @BEIBA :SET UP ADDR REG 

761 003446 012777 177777 176130 MOV #~1, aBE ICC :SET CYCLE COUNT = 1 

762 003454 012777 002077 176126 MOV #2077,@BE1CR1 :LOAD #2077 FUNT IONS 

763 003462 010037 177776 MOV RO,PSW SLOWER PROC STA 

264 003466 000240 NOP TALLOW TIME FOR WTERUPT 

766 003470 022777 177777 176106 CMP #~1 ,@BEICC :SEE IF DEVICE WENT OFF 

767 003476 001014 BNE 5$ sIF IT DID,SKIP ERR TYPEOUT 

768 003500 017737 176104 001162 MOV @BE1CR1,$REGO NEXT MOVES ARE FOR TYPEOUTS 

769 003506 017737 176072 001164 MOV @BE1CC, $REG) 

770 003514 012737 000340 001166 MOV #PR7, $SREG2 

771 003522 010037 001170 MOV RO, SREG3 

772 003526 104003 ERROR 3 ; TYPE ERROR MESSG 

773 003530 5$: 

774 003530 162700 000040 SUB #40,RO R PS BY 1 LEVEL 

775 003534 020027 000000 CMP RO,APRO ;SEE IF aos IS LESS THAN 0 

ha 003540 100322 BPL 2s IF PLUS ,GO BACK AND DO ANOTHER CYCLE 
778 J PPAR AAAAAAEEARARRAERAEERERERERERRRAREEARRRRRERERRERERERREREK 
779 T*TEST 3 ISSUING OF BUS GRANT 7 AND ARBITRATION TESTS 

780 :*THIS TEST WILL ARBITRATE FOR A BG7, 

781 [THE REQUESTS WILL BE ON LEVELS BR? THRU BR4, DOING 

782 [*FUN 1=DATI TRANSFERS, AND THE PROCESSOR STATUS 

783 LOWERED SEQUENTIALLY FROM 7 TO 

784 + eeeeeeaneneeeentannaneearanennannanenanaaerenenaeenenneneeneees 
785 003542 000004 1813: SCOPE 

786 003544 BR7TST: 

787 003544 012700 000300 #PR6,RO 72ND PS WILL = 6 

788 003550 2s: 

789 003550 123737 001115 001103 CMPB = SERMAX.SERFLG =: MAX ERRS FOR THIS TEST OCCURRED? 
790 003556 100452 BMI TST4 ‘BR IF YES TO NEXT TEST 

791 003560 012737 000340 177776 MOV #PR7 PS s INITIAL PS 

98 003566 012777 004506 17 MOV WERRCHK, @BE1VEC ;SET UP VECTOR LOCATION 

793 003574 012777 000340 17 MOV 7, aBE 1PSwW :SET Up DEVICE INTR PSW 

794, 003602 012777 020510 175776 MOV aattno a8E 184 

795 003610 012777 177 175766 MOV peice (SET cyclen COUNT =1 

796 003616 012777 002037 175764 MOV 4208 @BE1CR1 LOAD #2037 FUNTIONS 


M 
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CZKUAE P11 27-SEP-79 09:25 T3 ISSUING OF BUS GRANT 7 AND ARBITRATION TESTS SEQ 0025 


010037 177776 RO,PSW ;LOWER PROC STATUS 
000240 NOP sALLOW TIME FOR INTERUPT 


022777. 177777 #~1,@BE1CC :SEE IF DEVICE WENT OFF 
1014 BNE TIF IT DID,SKIP ERR TYPEOUT 
175742 @BE1CR1,$REGO :NEXT MOVES ARE FOR TYPEOUTS 
175730 001 @BE1CC,$REG1 
000340 #PR7 , $REG2 
001170 0 


g 


TYPE ERROR MESSG 


000040 : #40,R0 LOWER PS BY 1 LEVEL 
000000 RO, WPRO :SEE IF ad, IS LESS THAN 
2s e Bibs .GO BACK AND DO ANOTHER CYCLE 


ok toh tet etn 


— SS 


WONOUSWN oO 


ee ee 
TRTEST 4 ISSUING OF BUS GRANT 6 AND ARBITRATION TESTS 
esTHIS TEST WILL ARBITRATE FOR A BG6, 
*THE REQUESTS WILL BE ON LEVELS BR6 THRU BR4, DOING 
FUN 1=DATI TRANSFERS, AND THE PROCESSOR STATUS 
[*LOWERED SEQUENTIALLY FROM 6 TO 0. ° 
PPIIIITIIILT LLL LLL TELL LLL LLL LLL LLL LLL LLL LLL Li 


: SCOPE 


00 00 Co 0d 00 Cn 00 C0 Co Co 
2 St 


#PRS .RO Z2ND PS WILL = 5 


001103 CMPB fr SERFLG ;MAX ERRS FOR THIS + tee » autee: 
BMI ST5 7;8R IF YES TO NEXT TEST 
177776 MOV #PR6 PS : INITIAL PS 
MOV WERRCHK,@BE1VEC ;SET UP VECTOR LOCATION 
#PR7. aBE 1PSw 3SET UP DEVICE INTR PSW 
UP ADDR REG 


#ATEND @BE1BA 

#1, aBE1CC iSET CYCLE 7COUNT =1 

#2017, aBE1CR1 #2017 FUNTIONS 

RO,PSW LMR PROC STA TUS 
TALLOW TIME FOR INTERUPT 


#~1 ,@BEICC i SEE " DEVICE WENT OFF 
$ z1F IT DID,SKIP ERR TYPEOUT 
NEXT MOVES ARE FOR TYPEOUTS 


; TYPE ERROR MESSG 


LOWER PS BY 1 LEVEL 
53 LESS THAN 0 
F PLUS ,GO BACK AND DO ANOTHER CYCLE 


820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
rat 
a5 
844 
8&5 
846 
847 
848 


FRRAAARAAAEAAAAARARAREAEARREREEAEARAARREEEERERERERRARERRAERARRREERE EEE 
*STEST 5 ISSUING OF BUS GRANT 5 AND ARBITRATION TESTS 
:*THIS TEST WILL ARBITRATE ror A BGS, 
S*THE REQUESTS WILL BE ON LEVELS tt THRU BR4, DOING 
S*FUN 1=DAT] TRANSFERS, AND THE PROCESSOR STATUS 


Bs 


000 
ww 
N= 
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CZKUAE.P11  27=SEP=79 09:25 15 ISSUING OF BUS GRANT 5 AND ARBITRATION TESTS SEQ 0026 
853 :*LOWERED SEQUENTIALLY FROM 5 TO 0. 
854 © RRR AEEEEKKRAERARAAEKRARRARERAEAKREKKKERAKKEAERREE 
855 004046 000004 TS: SCOPE 
856 004050 BRSTST: 
897 904050 012700 000200 - MOV #PR4 RO :2ND PS WILL = 4 
859 004054 123737 001115 001103 CMPB « SERMAX,SERFLG =: MAX ERRS FOR THIS TEST OCCURRED? 
860 004062 100452 BMI TST6 +;BR IF YES TO NEXT TEST 
861 004064 012737 000240 177776 MOV #PRS .PSW s INITIAL PS 
86¢ 004072 012777 004506 175562 MOV WERRCHK ,@BE1VEC ;SET UP VECTOR LOCATION 
863 006100 012777 000340 175556 MOV #PR7 , BE 1PSw :SET UP DEVICE INTR PSW 
864 004106 012777 920510 175472 MOV #ATEND . @BE 1BA T UP ADDR REG 
865 004114 012777 177777 175462 MOV ape icc iSet CYCLE COUNT = 1 
866 004122 012777 002007 175460 MOV #2007 ae ICRI OAD #2007 FUNTIONS 
867 004130 010037 177776 MOV RO,PSW ‘TOMER PROC STATUS 
868 004134 000240 NOP SALLOW TIME FOR INTERUPT 
870 004136 022777 177777 175440 CMP #~1,@BEICC SEE IF DEVICE WENT OFF 
871 004144 001014 BNE 5$ TIF IT DID,SKIP ERR TYPEOUT 
872 004146 017737 175436 001162 MOV @BE1CR1,$REGO :NEXT MOVES ARE FOR TYPEOUTS 
873 006154 017737 175424 001164 MOV @BE1CC, $REGI 
874 004162 012737 000240 001166 MOV #PRS , SREG2 
875 004170 010037 001170 MOV RO, SREGS 
876 004174 104006 ERROR 6 ; TYPE ERROR MESSG 
877 004176 S$: 
878 004176 162700 000040 SUB #40,RO LOWER PS BY 1 LEVEL 
879 004202 020027 000000 CMP RO,APRO ;SEE IF bo IS LESS THAN 0 
880 004206 100322 BPL 2$ :IF PLUS ,GO BACK AND DO ANOTHER CYCLE 
882 
883 [RRA AERERERREREREREEREAERARRRRERREREERERERERREKEEERREERERRERE RH 
884 tSTEST 6 ISSUING OF BUS GRANT 4 AND ARBITRATION TESTS 
885 :*THIS TEST WILL ARBITRATE FOR A BG4, 
886 *THE REQUESTS WILL BE ON LEVEL BR4, DOING 
887 teFUNC 1-DATI TRANSFERS, AND THE PROCESSOR ST .TUS 
888 S*LOWERED SEQUENTIALLY FROM 4 TO 
B89 PITTI TITTLE LLL 
8% 004210 000004 S16: SCOPE 
891 04212 BR4TST: 
34 004212 012700 000140 se MOV #PR3,RO :2ND PS WILL = 3 
894 004216 123737 001115 001103 CMPB SERMAX, SERFLG zMAX ERRS FOR THIS | TEST OCCURRED? 
895 004224 100452 BMI S17 BR IF YES TO NEXT TEST 
896 004226 012737 000 177776 MOV #PRG PS INITIAL PS 
897 “004 01 004506 175420 MOV WERRCHK, @BEIVEC ; up tecToR LOCATION 
898 004242 012777 000340 175414 MOV #PR7, aBE 1PSwd ‘ST eo DEVICE INTR PSW 
899 004250 012777 920510 175330 MOV #ATEND SBE 1BA [SET UP ADDR REG 
900 006256 012777 1 175320 MOV gence [SET CYCLE COUNT = 1 
901 004264 012777 002003 175316 MOV #7005. @BEICR1 :LOAD #2003 FUNTIONS 
90 004272 010037 177776 MOV SLOWER PROC STATUS 
905 004276 000240 NOP TALLOW TIME FOR INTERUPT 
905 004300 022 177777 175276 CMP #~1,aBE1CC : SEE IF ppevice WENT OFF 
906 004306 001014 . BNE 5$ TIF 17 DID, SKIP ERR TYPEOUT 
907 004310 017737 175274 001162 MOV @BE1CR1,$REGO NEXT MOVES ARE FOR TYPEOUTS 
908 004316 017737 175262 001164 MOV aBE ICC, REG! 


B 
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CZKUAE.P11 | 27=SEP=79 09:25 ISSUING OF BUS GRANT 4 AND ARBITRATION TESTS SEQ 0027 
004324 012737 000200 001166 MOV _—s- APR4, SREG2 
910 004332 010037 001170 MOV _—sRO, SREG3 
911 004336 104007 ERROR 7 TYPE ERROR MESSG 
912 004340 5$: 
913 004340 162700 000040 SUB #40, RO LOWER PS BY 1 LEVEL 
914 004344 020027 000000 CMP  —s- RO, APRO SEE IF RO IS LESS 
915 004350 100322 BPL 2$ IF PLUS GO BACK AND DO ANOTHER CYCLE 
916 PETTITT TIT IIIT TTT TIT TTT TITiTTiti titi itt tte ti titi ttt tet itil) 
917 
918 STF § MT aAanKxter!|60U!!! 
919 IRTEST 7 CPU TEST FOR NO SACK TIME OUT 
920 :THIS TEST WILL CHECK THAT THE CPU TIMES OUT 
921 :*DROPS A GRANT IF NO SACK SIGNAL IS RECEIVED 
922 :*IF THE CPU TIME OUT IS INOPERATIVE, THE BUS EXERCISER 
923 *WILL TIME OUT AND SEND THE SACK SIGNAL TO PREVENT 
924 A BUS HANG AND SET AN ERROR FLAG IN CR2 
925 z. =MADAARASAAAAALALALALALARL AAA EAA AERA AAAS ARE ARR RRA ARREARS SSS 
004352 TST7: SCOPE 
927 004354 737 002 JSR _—«- PC, CLRREG ;CLEAR CONTENTS OF ALL AVAILABLE DEVS 
928 004360 012777 177777 175216 MOV #1, a@BETCC TSET CYCLE COUNT 
366 012777 020510 175212 MOV -« WATEND, @BE1BA ©: SET UP DEVICE REG ADDR 
930 004374 012737 000 177776 MOV = #PR7 PS SET PS=7 
931 402 012737 002550 000004 MOV #TYMOUT.ERRVEC SET UP TIME OUT VECTOR 
004410 012777 004506 175244 MOV § WERRCHK;@BE1VEC :SET UP DEVICE INTR VECTOR 
933 004416 012777 000340 175240 MOV —« #PR7,@BEIPSW SET UP DEVICE INTR PSW 
004424 052777 000010 175162 BIS § #B1TO3,aBEICR2 INHIBIT SACK RETURN 
935 004432 012777 006003 175150 MOV § #6003,@8E1CR1  :DO FUN 
004440 012737 000140 177776 MOV —s- #PR3_,PSW SLOWER PROC. STATUS TO 3 
937 004446 004737 010626 JSR —- PC, CNTR [DELAY FOR TIMEOUT 
004452 042777 000010 175134 BIC WEITO3,@BE1CR2 ALLOW FUTURE SACKS 
939 004460 105777 175130 TSTB = @BETCR2 [CHECK IF NO-NO SACK BIT IS SET 
940 100024 BPL TST10 :;1F NOT SET, GO TC NEXT TEST 
941 466 017737 175116 001162 MOV —- @BETCR1,$REGO  :MOVE FOR TYPEOUT REASONS 
942 004474 017737 175114 001164 MOV -—« @BETCR2.$REG]  :MOVE FOR TYPEOUT 
943 004502 104012 ERROR 12 ZERROR IF SETDEVICE FORCED TO SEND SACK 
944 000414 BR TST10 :;G0 TO NEXT TEST 
945 7s «CARRERE RARER ERR EERE ERE EERRRERRERRERERERRERRER ERE REE ERE 
2 PERERA ARERR AEEERAEREAEEEAEREAERAEREREEAE ARERR KREREERAEERERE EE 
947 004506 ERRCHK : 
948 004506 033777 001576 175100 BIT —_ ALLERR,@BE1CR2 ;CHECK FOR ANY ERRS IN CR2 
949 004514 001407 BEQ IF NONE, EXIT 
950 004516 011637 001174 MOV (SP) ,SREGS [FOR TYPEOUT OF PC 
951 004522 012737 000001 001206 MOV = #1, STMP4 SINDICATOR FOR DEVICE 1 
952 004530 004737 010166 JSR —- PC. ERRTN SCHECK TO SEE IF ANY ERRORS OCCURED 
953 004534 5$: 
954 004534 000002 RTI EXIT TRAP 
3 
957 SERA REAR AERA REKRAAEARARARAEARERAEAAEARERERAEERERERRE REE 
958 TRTEST 10 CPU TEST FOR RECEIVING SACK 
959 :sTHIS TEST IS TO INSURE THAT THE CPU CAN RECEIVE THE 
PESACK SIGNAL? THE TIME DELAY WILL BE SET. ON DEVICE 1 
961 SAND SEVERALDATI TRANSFERS MADE. IF THERE IS NO BUS 
962 *LATE ERROR, THE CPU RECEIVED SACK CORRECTL 
963 i311 1S ASSUMED THAT DEV 1 TIME DELAY Is SET FOR 10 US 
964 PITTI IIIITIIT TITTLE LITTLE LLL 
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004536 


000004 
012737 
004737 
012702 
012705 
004737 


012777 


012799 
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000340 
002566 
020510 
000010 
010610 
004506 
000340 
177770 
020510 
040000 
024441 
000000 
174742 
040000 
000010 
174710 
000010 


004000 


177776 


177776 


174736 


174716 


001164 
001166 


174702 


177776 


174714 


04-OCT-79 12:49 PAGE 22 
T10 CPU TEST FOR RECEIVING SACK 


TST10: SCOPE 
MOV #PR7 ,PSW 27 
JSR at CLRREG CLEAR ALL erie REGISTERS 
MOV ND,R2 R2 WILL ae TO END OF PROG 
MOV TOURS “RS = 40 Fest WORDS TO CREATE 
JSR PC ,DOUP ; CREATE OHOse TEST WORDS 
MOV WERRCHK ,@BE1VEC ;SET UP VECTOR LOCATION 
MOV #PR7 ,@BE 1PSW ;SET UP DEVICE INTR PSW 
MOV #~10.@BE1CC 3SET UP CYCLE COUNT 
MOV WATEND,@BE1BA ;SET UP ADDR REGISTER 
BIS #B1T14,aBE1CR2 ;SET BIT 14 OF CR2 FOR TIME DELAY 
MOV #24441, @BE1CR1 ;DO FUN 2=DATIP/NO ROL-NPR 
5s MOV #PRO.PSW ;LOWER PS TO ALLOW INTERRUPTS 
NOP ;ALLOW FOR INTERUPT 
TSTB @BE1CR1 ;SEE IF DONE BIT SET 
BPL 5$ ;IF NOT, GO BACK AND WAIT 
BIC WB1T14,aBE1CR2 [ELSE CLEAR BIT 14 OF CR2 
CMP #10,@BE1D8 :DID LAST XFER MOVE to INTO DB 
BEQ 10$ ;I1F IT DID,GO TO 10$ 
MOV @BE 1DB, S$REG1 TELSE MOVE FOR ERR TYPE OUT 
MOV #10,$REG2 
_ ERROR 34 ; TYPE ERR MSSG 
BIT #B81T11,@BE1CR2 ;SEE IF NO SSYN ON INTR ERR SET 
BEQ TST11 371F NOT SET, GO TO NEXT TEST 
ERROR 23 sELSE TYPE ERR MSSG 
BR TST11 3: THEN GO TO NEXT TEST 
STEST 11. PASSING OF GRANTS AM® INTERAST TEST 
SSTEST 11 PASSING OF GRANTS AND INTERRUPT TEST 
s*THIS TEST WiLL SET OFF ALL AVAILABLE peViCES SIMUL TANEOUSL Y 
[*WHOSE ONLY FUNCTIONS WILL BE TO INTE Te REQUESTS 
s*WILL ALL BE” AT LEVEL 7 SO THAT THE DEVICE CLOSEST TO THE CPU 
s*SHOULD RECEIVE BG7 FIRST AND INTERRUPT FIRST, THE NEXT 
7*CLOSEST SHOULD INTERRUPT NEXT AND SO ON. 
n-ne anata mearnemmmeaninmnetee: 
TST11: SCOPE 
MOV #PR7 ,PSW sPS=7 
— JSR PC, CLRREG ;CLEAR CONTENTS OF ALL AVAILABLE DEVS 
MOV AMDEVS RS sDEVS CONTAINS SEQUENCE OF INTR'G DEVICE ADDRS 
MOV #INTRi , @BE 1VEC ;SET UP DEVICE 1 INTR VECTOR 
MOV #PR7 , @BE 1PSW aaet UP INTR PSW 
MOV #36,@BE1CR1 [DO FUN 0 = BR7 THRU BR4 
CMPB #1, DEVCNT ilF ONLY 1 DEVICE NON BUS 
BEQ “BRANCH TO GO 
LOAD2: MOV MINTR2, @BE2VEC ;SET UP DEVICE 2 INTR VECTOR 
MOV #PR7, ABE OPS 7SET UP DEVICE 2 PSwW VECTOR 
MOV #36, a@BE2CR1 7D0 FUN 0 - BR7 THRU BR4 
CMPB #2, DEVCNT zIF ONLY 2 DEVICES ON BUS 
BEQ GO “BRANCH TO GO 
LOAD3: MOV #INTR3,@BESVEC SET UP DEVICE 3 INTR VECTOR 


SEQ 0028 
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CZKUAE .P11 


005262 


012777 


012777 
012777 
012777 


005201 
013724 
012737 
011637 
004737 
000002 
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001802 
000001 
001616 
000002 


001632 
000003 


001206 


001206 


001206 


001206 


Dade + 


PASSING 


LOADS: 


GO: 


CMPARE: CMP 


igeews 
INTR2: 


INTR3: 


 % 49 PAGE 


23 
OF GRANTS AND INTERRUPT TEST 


#PR7 , ABE 3PSW ;SET UP DEVICE _3 PSwW VECTOR 

#36,@BESCR1 ;D0 FUN 0 = BR7 THRU BR4 

az DEVCNT :1F ONLY m DEVICES ON BUS 
BRANCH TO GO 


MINTR4 ,@BESVEC SET UP DEVICE 4 INTR VECTOR 
#PR7 , ABE4PSW SET UP DEVICE 4 PSW VECTOR 
#36, @BE4CR1 ;D0 FUN 0 = BR7 THRU BR4 


R1 ;CLEAR R1 FOR COUNTING 


@S IMLGO SET SIMULTANEOUS GO REGISTER 

#PRO .PSW ;LOWER PS TO ALLOW INTERRUPTS 

PC,CNTR ALLOW TIME FOR INTERRUPTS BY COUNTING 
it ie OMPARE THE 


DEVS .$REG1 MOVE FOR TYPEOUT 
DEVS+2, $REG2 ZMOVE FOR TYPEOUT REASONS 
DEVS+4,$REG3 ;MOVE FOR TYPEOUT REASONS 


DEVS+6, $REG4 sMOVE FOR TYPEOUT REASONS 

10 ; TYPE ERR MSSG 

TST12 3:G0 TO NEXT TEST 
MARSBASAAAAALAALALAELASLALL ALAS SERS SACRE SERRA ERR ARR eRe PP ee eS A SG 
MASRAARALASAALSAAAALALALESLEL ALAS ALES ESA EAL AAR AAAS AS ARRAS ER AAS SS 

R1 ;ADD 1 TO se ON INTR 

BE1DB, (R4)+ ‘MOVE ADDR FOR TYPEOUT 

#1,$S1MP4 s INDICATOR FOR DEVICE 1 

INTRTN [BRANCH TO REST OF INTR RTN 

R] ;ADD 1 TO COUNTER ON INTR 

BE 2DB, (R4)+ *MOVE ADDR FOR TYPEOUT 

#2, $TMP4 : INDICATOR FOR DEVICE 2 

INTRTN [BRANCH TO REST OF INTR RTN 

R1 z;ADD 1 TO COUNTER ON INTR 

BE3DB, (R4)+ sMOVE ADDR FOR TYPEOUT 


INTR4: 


INTRTN: 


#3, $TMP4 ; INDICATOR FOR DEVICE 3 


INTRTN BRANCH TO REST OF INTR RTN 
R1 z:ADD 1 TO ers ON INTR 
BE4DB, (R4)+ [MOVE ADDR FOR TYPEOUT 

#4, $TMPS INDICATOR FOR DEVICE 4 
(SP), —— FOR TYPEOUT OF PC 

PC,ERRTN SEE IF ERROR CAUSED INTR 


FTAA ERAEEAEREREEAEKEREEAAEERAREREAAEREREAEAEEREER EERE EE 


:*TEST 12 


ADDRESS LINES (14 = 17) CHECK 


:*THIS TEST WILL CHECK BUS ADDRESS LINES 14 THRU 17 
;*BY DOING A FUN 1-DATI-NPR TO THOSE ADDRESSES 

:*IF THE ADDRESSES DON'T EXIST THE INTERRUPT ROUTINE 
:*WILL IGNORE ANY NO SSYN ER 


° 
WEeADSARRASZASLAALALELALARAALARAAE SAL ER ERASER RAR RRA RR RAR RRR RSA A SSE S| 


TST12: SCOPE 


SEQ 0029 


tsIF BUFFERS ese CORRECT SEQUENCE, GO TO NEXT 


UNIBUS EXERCISER MACY11 30A(1052) 04-OCT-79 12:49 PAGE 24° 
CZKUAE .P11 27-SEP-79 09:25 Tle ADDRESS LINES (14 = 17) CHECK 


1977 

1078 005264 004737 PC, CLRREG ecler CONTENTS OF ALL AVAILABLE DEVS 
1079 737 177776 #PR3 ,.PSW 

777 ~005364 174356 #BRK , @BE1VEC SET UP DEVICE INTR VEC 

777 174352 #PR7 ,@BE 1PSW 7SET UP DEVICE PSwW VEC 


sTEST ADDR LINES 14 815 
174270 mC ADL SELSE SET BIT 0 OF CR2(ADDR LINE 16) 


L 
174256 : CLEAR a OCADDR LINE 16) 
174250 #2, @BE1CR2 :SET BIT 1 OF CR2(ADDR LINE 17) 
0047 PC.ADLI 
052777 000003 174236 #3, @BEICR2 ELSE SET BITS 0 AND 1 OF CR2 
;SETS ADDR LINES 16 & 17 
004737 5 PC,ADLI 


000431 BR TST13 ::GO TO NEXT TEST 
FERRARA RARER AREER ERE AKER REEREERER EE EEERERE ERR ERE 
J FRR RRR RE ERE ARERERE EEA ERERREERE EERE EERE EH 
BRK: 
011637 (SP) , SREGS :FOR TYPEOUT OF PC 
00000 #1, $TMPG ‘INDICATOR FOR DEVICE 1 
#7340,@BE1CR2 =CHECK FOR ALL ERRS EXCEPT NO SSYN ERR 
1$ TIF ANY ARE SET,SEE WHICH ONES 
@BEICLR ‘ELSE CLEAR THE NO SSYN ERR 
EXBRK EXIT 


88 


SS SSeS PERS 


SE5228 


$3 


017737 174170 001164 @BE1CR1,$REG1 ;MOVES ARE FOR TYPEOUTS 
017737 174166 001166 @BE1(R2, $REG2 
174152 001170 @BE 1BA, $REG3 
1 ZERR ON ACCESSING A14 = Al7 


; 
010166 J PC,ERRTN :D0 ERR CHECK SUB-ROUTINE 
EXBRK : sEXIT 


LTE EREREREERR ERE AERA REE EREE REE EERE 
RTEST 13 CPU TEST FOR ACLO/DCLO SEQUENCE 
*THIS TEST CHECKS THE ASSERTION OF ACLO AND DCLO 
AND THAT THE CPU TRAPS TO THE CORRECT SERVICE ROUTINE, 
*IF THIS PROGRAM IS RUNNING UNDER ACT11 THIS TEST 
Z*WILL BE SKIPPED. 
POT IIT ITT T Tet ttt ttt iit iii tii iiii iii iii iti titi iii iti titi is, 
000004 T5113: 
012737 001212 MOV #1, STIMES ::D0 1 ITERATION 
005737 42 ;SEE IF PROGRAM IS UNDER ACT11 
001061 TST14 IF UNDER ACT, DO NOT PERFORM THIS TEST 
012705 #1,R5 SINIT RS WITH A VALUE OF 1 


RS ZADD 1 TO RS 
6$ [KEEP ADDING AS LONG AS R5 POS 
#1, AP haa : INDICA mt FOR DEVICE 1 
1 #ERRCHK,@BE1VEC SET UP INT VECTOR 
174140 #PR7, aBE 1PSW :SET UP PeVICE INTR PSW 
$TMP i LEAR TEMPORARY REGISTER(THPT) 
#TMPPWR , PWRVEC <SET UP I RTN 


737 005606 000024 mo SPECIAL POWER 
2777 174050 #B1T04,@BE1CR2 INDICATE PWR FAILURE BY SETTING BIT 4 


1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Oe Tw et otter teeter peerpes fe ee ee tt 
NoPoNofy @ @ SS SS Ss a ow 
NASVVVRGRAVLS Sa VRARAVISSRIKARALSS 








om 


00 Qo 00 Go Co N ARARO AAMVMIWMNANIVIW WWINWWw 
SCRARRVSSISNRARANVSSEIFAGLATIS SRNRALUNASSSVLEGEANLSSRNIKARYG 





: EE Se DN EEE. 
EXERCISER MACY11 30A(1052) 04-OCT-79 12:49 PAGE 25 
11 27=SEP=79 09:25 113 CPU TEST FOR ACLO/DCLO SEQUENCE SEQ 0031 
005544 004737 010626 JSR PC, CNTR ;PAUSE FOR TIME 
005550 012737 010122 000024 MOV #PWREAL , PWRVEC ;RESTORE PWRFAL SEQ FOR A PwR FAIL 
005556 042777 000020 174030 site BIC WBITO4,@BE1CR2 :MAKE SURE BIT 4 IS CLEARED 
005564 022737 001154 020466 "(MP WSNULL.SPWRMG ;IF THIS TEST IS CAUSE OF 
‘PWR FAIL =-TYPE NULL CHAR 
005572 001401 BEQ XTST SIF EQUAL, EXIT TEST 
905574 104013 oan ERROR 13 [TYPE ERR MSSG IF FAILURE 
005576 012737 020500 020466 "MOV #SPOWER,SPWRMG ;RESTORE TYPE OUT OF ‘POWER’ 
005604 000410 TST14 +:GO TO NEXT TEST 


SL ERA REREREREKE EEE 
FLERE ERE REE REE RARER AERA ERERERRERERR EERE ERE 


005606 TMPPWR : SPECIAL PWR RTN; OTHER THAN SYSMAC'S 
005606 012737 001154 020466 MOV MSNULL.SPWRMG ;CHANGE PWR MSSG TO NULL CHAR 

005614 042777 000020 173772 BIC #B1T04,@BE1CR2 ;CLEAR POWER DOWN/UP BIT 

005622 000137 020332 JMP SPWRDN :GO TO THAT RTN 


DDR IIIA IOI ISIS ISIS IIIS IOIDIIIO OI IIIDIISISIIOIIOIDIIIIIIIIOIIOI IOI OO 
s*TEST 14 PARITY ERROR TEST 

2 *THIS TEST WILL CAUSE PARITY ERROR AND CHECKS 

*THAT THE CPU TRAPS TO THE CORRECT VECTOR. 

SeTHIS TEST SHOULD BE DESELECTED IF ys MEMORY 

;*PARITY OPTION IS NOT PRESENT, ELSE AN 

*ERROR WILL BE REPORTED ALTHOUGH HARDWARE IS 

7 *FUNCTIONING PROPERLY. 

> *SW06=1 INHIBIT TEST 14 AND GO TO NEXT TEST 


° 
Wn AR ARRRAAERAAAAELALEL LEAR AAAS ALER SALES ERE RRR R ARR RRR ARR R ASAD SS SO 


005626 000004 TST14: SCOPE 
005630 032777 000100 173302 BI] #BITO6, aSWR ; INHIBIT Li! 7 
005636 001105 BNE TST15 :GO TO NEXT TEST 
005640 012737 006050 000010 MOV #NODO, 10 :SET UP RESERVED INSTR VECTOR 
005646 012737 000340 000012 MOV #PR7, 12 7PSw= 
005654 005037 001204 CLR $TMPS ‘SET $TMP3 = 0 
005660 000270 SEN :SET N BIT OF CC 
005662 006737 001204 SXT STMP3 ‘IF VALID INSTR, $TMP3 WILL = -1 
005666 005737 001204 TST $TMP3 TIF INVALID, $TMP3 WILL REMAIN N 0 
005672 100033 BPL NXT Z1F CP NOT= 35,40,45,0R 70.GO TO NEXT TEST 
005674 012737 000140 177776 MOV #PR3,PSW =PS=3 
005702 012777 006014 173752 MOV #PBERR,@BEIVEC :SET UP DEVICE INTR 
005710 012737 006036 000114 MOV #PBRIN,PBVEC ;SET UP any bh BIT VECTOR 
005716 012737 000340 000116 MOV #340, PBPSW ‘SET UP PARITY BIT PSW 
005724 012777 020510 173654 MOV WATEND,@BE1BA  :SET UP ADD REG 
012777 177777 173644 MOV #1, aBE ICC [SET UP CYCLE COUNT 
005740 052777 010000 173646 BIS weltie. @BEICR2 :SET BIT 12 FOR PARITY ERROR 
005746 005777 173642 TST @BE ICR? ‘SET OFF PARITY ERR SEQUENCE 
005752 012777 013161 173630 MOV #13161 aBE ICRI : TRY FUN 1=DATO FROM CC-NPR-INTR ON DOE (7) 
tT 000240 _ NOP TALLOW TIME FOR ATTEMPTED XFER 
005762 012737 000116 000114 MOV APBPSW,PBVEC —— : RESTORE 
5770 012737 000000 116 MOV #0, PES *TRAP CATCHER HERE AND 
005776 012737 000012 000010 MOV #12,10 TAT RESERVED 
012737 000000 000012 MOV #0,12 > INSTRUCTION VECTOR 
006012 000417 BR TST15 + : BRANCH TO NEXT TEST IF PARITY TRAP OCCURRED 


006014 PBERR: 


PONY Ss Ss Ss os 
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001174 
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005762 


002566 
000000 
177777 
007260 
000002 
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016161 
001115 
010360 
007260 
107070 


167777 
010000 


001206 


173550 


001702 


C01103 


007103 


rs -79 12:49 PAGE 26° 
PARITY ERROR TEST 


MOV (SP) , $REGS FOR TYPEOUT OF PC 
ERROR 14 TYPE ERR MSSG IF DEVICE INTERRUPTED 
MOV #1,$7MP4 ; INDICATOR FOR DEVICE 1 


JSR PC,ERRIN :CHECK TO SEE IF ANY ERRORS OCCURED 
RTI EXIT TRAP 


STREAK ERR RRR ERE EAR ERR EEK ER 
eitetoe! gins: a ee es ae Mae meee eg 5 


PBRTN: ;PARITY BIT TRAP R 
MOV #0, @BE1CR2 ;CLEAR PARITY BIT ERROR-MUST BE DONE 
:BY MOVING 0(S) TO BEICR2 
MOV NXT, (SP) SET STACK FOR NEXT TEST 
NODO: RTI 


DIDO IO OIE IUSIISISISIOIUIOIIOIISIIOIIIIOIOIUISOISIIISUI IO niin 
i*TEST 15 MULTITRANSFERS I 

;*THIS TEST WILL CAUSE ANY BUS EXERCISERS, UP TO 4, 

7*TO CREATE A LOT OF TRAFFIC ON THE BUS AN 

;*CHECK THAT THE CPU CAN HANDLE IT; ALL DEVICES 

7*ARE SET OFF SIMULTANEOUSLY 


SPARE REAR ERA EKER ARATE EREERERE EERE 


TST15: SCOPE 
JSR PC, CLRREG CLEAR CONTENTS OF ALL AVAILABLE DEVS 
MOV ‘SET DATA PATTERN = 0 
MOV #177777,,RG :SET DATA PATTERN = ALL 1°S 
JSR PC MULT? [LOAD & EXECUTE ALL DEVICES 
CMP #2, DEVCNT TARE THERE MORE THAN 2 DEVICES? 
BPL TST16 :;1F 2 OR LESS, GO TO NEXT TEST 
MOV #161610,R3 ‘ELSE LOAD R3 AND R4 WITH 
- MOV #0161614 SANOTHER PATTERN 
CMPB = SERMAX,SERFLG = _;MAX ERRS_FOR THIS | TEST OCCURRED? 
BMI TST16 -;BR IF YES TO NEXT TEST 
JSR PC ROTATE SROTATE DATA PATTERNS 
JSR PC MULT1 SLOAD & EXECUTE ALL DEVICES 
CMP #107070,R3 :IS R3 = 107070? 
BNE 5$ :IF NOT, ROTA TE AND DO AGAIN 
MOV #167777,R3 TELSE MOVE NEW PATTERNS 
a MOV #010000,R4 ZINTO R3 AND 
CMPB SERMAX, SERFLG ;MAX ERRS FOR THIS TEST OCCURRED? 
BMI 116 :;BR IF YES TO NEXT TEST 
JSR ey ROTATE SROTATE DATA PATTERNS 
JSR PC. 1 SLOAD & EXECUTE ALL DEVICES 
CMP #167777,R3 ‘IS R3 = 16777 
BNE 10$ SIF NOT,ROTATE AND DO AGAIN 
TST16 +:GO TO NEXT TEST 
FLERE RARER EEE ERE OREREAR AEA EEKEEEEAEKAEEREE EAE E EE 
CL ERE RRA REREEEAEERAEREREREAERERAAEEEEERERERERERE EE 
FL RAE AAR EREEAAAAEAAEAAEEREERREAEREREE 
SERVI: 


MOV @BE 1BA,DATA :MOVE — IN BE1BA TO aa AND 
SUB #1,DATA1 :SUB_1 TO GET ACTUA _ 
MOV #1 ,$TMP4 SF yt gh FOR DEVICE 1 

INK BRANCH TG INK 


SERV2: 


SEQ 0032 


ae EXERCISER MACY11 30A(1052) 04-OCT-79 12:49 ae 27" 


ZKUAE.P11 27-SEP-79 09:25 115 MULTITRANSFERS | SEQ 0033 
1245 006226 017737 173370 001716 MOV @BE2BA,DATA2 —«; MOVE ADDR IN BE ZEA TO DATA2 AND 
1246 006234 162737 000002 001716 SUB #2,DATA2 ‘SUB 2 TO GET ACTUAL ADDR 
1247 006242 012737 000002 001206 MOV #2, $TMP4 ‘INDICATOR FOR DEVICE 2 
1248 006250 000423 BR INK ‘BRANCH TO INK 
1249 006252 SERV3: 

1250 006252 017737 173360 001720 MOV ABE SBA DATA3 — MOVE _ADDR IN BE 3BA TO DATA3 AND 

1251 006260 162737 000002 001720 SUB #2,DATA3 ‘SUB 2 TO GET ACTUAL ADDR 

1252 006266 012737 000003 001206 MOV 3. SIMPe ‘INDICATOR FOR DEVICE 3 

1253 006274 000411 BR ‘BRANCH TO INK 

1254 006276 SERVG: 

1255 006276 017737 173350 001722 MOV QBEGBA,DATAS :MOVE ADDR IN BE4BA TO DATA4 AND 

1256 006304 162737 000002 001722 SUB #2,DATAG “SUB 2 TO GET ACTUAL ADDR 

1257 006312 012737 000004 001206 MOV #4. STMPG ‘INDICATOR FOR DEVICE 4 

1258 006320 INK: 

1259 006320 005237 001166 INC $REG2 : INCREMENT REG 

1260 006324 011637 001174 MOV (SP), —— FOR TYPEOUT OF PC 

1261 006330 004737 010166 JSR PC, ERRTN + CHECK FOR ANY ERRS 

1262 006334 000002 RTI “EXIT 

1263 pe KRERRERERERERREREREREREREREEREEREEREREREEREERERE EERE EERE 

; 

isos DLR EEERREREREEKEREEREEEEERERREAREREEEKEEERE EEK 

1266 :*TEST 16 MULTITRANSFERS II 

1267 :*THIS TEST WILL HAVE THE AVAILABLE EXERCISERS DOING 

1268 7*VARIOUS TRANSFERS AND/OR INTERRUPTS AT DIFFERENT 

1269 ;*REQUEST LEVELS TO FURTHER CHECK CPU HANDLING CAPABILITIES 

1270 PETTITITITIT TTT TTT TT TTT Tt Tit T iti ittitii titi itti tiie tiie tit. 

1271 006336 000004 TST16: SCOPE 

1272 006340 012702 020510 MOV MATEND ,R2 :R2 = END OF p06 

1273 006344 012705 005000 MOV #5000.R5 RS = THE # OF DATA WORDS 

1274 006350 004737 010610 JSR PC,DOUP CREATE THOSE WORDS IN BUFFER MEMORY 

1275 006354 004737 010722 JSR PC, TSTOVR *SET UP PATTERN IN MEMORY BUFFER AREA 

1s76 006360 004737 002566 JSR PC,CLRREG = CLEAR CONTENTS OF ALL AVAILABLE DEVS 

1278 006364 012737 000000 177776 MOV APRO,PSW :PS=0 

1279 006372 012777 007124 173262 MOV #S1 BE IVEC [SET UP DEVICE 1 INTR VECTOR 

1280 006400 012777 000340 173256 MOV #PR?, ABE 1P ‘SET UP DEVICE 1 PSw VECTOR 

1281 006406 012777 022510 173172 MOV PATEND D000 @BE1BA ;SET UP ADDR REG 

1282 006414 012777 176000 173162 MOV #-2000, @BE1CC :SET UP CYCLE COUNT 

1283 006422 012777 015551 173160 MOV #15551 -aBE ICRI FUN 2=DATOB FROM CC-NPR-INTR ON DONE (6) 

1 006430 022737 000001 001702 CMP #1,DEVCNT ‘OME CK FOR MORE THAN 1 DEVICE 

1285 006436 001467 BEQ 1$ [IF NOT, GO CHECK RESULTS 

1287 006440 012777 007156 173220 MOV #S2 aBe2VEC 7SET UP DEVICE 2 INTR VECTOR 

1288 6 012777 0 173214 MOV #PR? ABE2PSW :SET UP DEVICE 2 PSw VECTOR 

1289 006454 012777 1771 173136 MOV #1000. @BE2CC :SET UP CYCLE COUNT FOR 1000 XFERS 
012777 020510 173132 MOV @BE2BA  :SET UP ADDR REG=1ST LOCATION AFTER PROG 

1291 006470 012777 00 173126 MOV elt ae Pty :DO FUN 1-DATIP-NPR-INTR ON DONE (7) 

1292 006476 022737 000002 001702 CMP #2,DEVCNT :¢ CK FOR MORE THAN 2 DEVICES 

1298 006504 001444 BEQ 1$ F NOT, GO CHECK RESULTS 

1295 506 012777 007210 173156 MOV #S3, aBE 3VEC :SET UP DEVICE 3 ofNTR VECTOR 

1296 006514 012777 173152 MOV #PR?.aBESPSW ==: SET-UP PSW 

1297 006522 012777 176776 173104 MOV #-1002,aBE3CC  :SET UP cycle COUNT 

1298 530 012777 020510 1731 MOV WATEND,@BE3BA  :SET UP ADDR REG 

1299 006536 012777 173074 MOV #4005,@BE3CR1  :DO FUN 2=DATI-BRS 

1300 006544 022737 000003 001702 CMP #3, DEVCNT *CHECK FOR MORE THAN 3 DEVICES 


I 
cored EXERCISER MACY11 wenn eee B etued"t 12:49 PAGE 28 


ZKUAE .P11 27-SEP-79 09:25 MULTITRANSFERS I1 SEQ 0034 
13 006552 001421 BEU 1$ ;IF NOT, GO CHECK RESULTS 

1303 006554 005037 001172 : CLR SREG4 ZUSE REG4 TO COUNT INTRS 

1304 006 012777 007226 173110 MOV #S4, @BESVEC [SET UP DEVICE 4 ofNTR VECTOR 

1305 006566 012777 000340 173104 MOV APR? ,ABEGPSW :SET UP PSwW VECTOR 

1306 006574 012777 175000 173046 MOV #-3000,aBE4CC  :SET UP CYCLE COUNT 

1307 006602 052777 040000 173050 BIS WB1T14.@BE4CR2 :SET TIME DELAY BIT OF DEVICE 4 

1308 006610 012777 000021 173036 i MOV #21, @BE4CR1 ‘DO FUN 0-BR7 

1310 006616 012700 001610 , MOV #BE1CR1,R0 sUSE RO TO POINT TO DEVICE 1°S CR1 

1311 006622 004737 010534 JSR PC ,BKGD ;PERFORM BACKGROUND ROUTINE 


STENT RENSS RN ES EN ET EN STEN SS EN ES EN SS EN SIN SSN SS IN STEN ESN ES EN EARN SSRN EIN: 

STENT EN SSRN EARN EARN SS IN STEN EDEN SS ENS EN SSN ES EN ESN SS EN ES EN SSRN ESN E/N: 
;BE1 ed CHECKS 

s/:\e7: NOFA ISIN AAC TAA TALC TAR IAAL TAAL IAAC IARC IAACTAACTE \*/: \a/s\e/:\% 

T/2\R/2\8/\8/: NRA ENR NRA ENA ENR ENT INR ENS NZ NZ ENR ENR EN NR 


1319 006626 012702 022510 MOV #ATEND+2000,R2 ;USE R2 TO POINT TO 2000 BYTES AFTER END OF PROGRAM 
1320 006632 012737 176000 001166 MOV #-2000, $REG2 :SET UP S$REG2 WITH EXPECTED RESULTS 
1321 006640 023702 001714 10$: CMP DATA! »R2 ;CHECK FOR 4000 BYTES PAST END OF PROGRAM 
1322 006644 001417 BEQ 14$ :IF EQUAL, GO CHECK FOR ANOTHER DEVICE 
1323 006646 023722 001166 CMP $REG2, (R2)+ ELSE COMPARE EXPECTED RESULTS WITH THAT IN R2 
1324 006652 001004 BNE 12$ F NOT EQUAL, GO y J ERR MSSG 
1325 006654 062737 000002 001166 ADD #2,$REG2 ‘INCREMENT REG2 AS CC WOULD 
1326 006662 000766 BR 10$ ‘AND GG BACK TO CHECK NEXT LOC 
1327 006664 12$: : 
1328 006664 014237 001164 MOV -(R2) ,$REG1 sMOVE R2 TO REG 5 FOR TYPEOUT 
1329 006670 010237 001162 MOV R2,$REGO 
1330 006674 013737 001166 001170 MOV SREG2, $REG3 
1331 006702 104021 ERROR 21 : TYPE ERR MSSG 
1332 006704 14$: 
1333 0067 022737 000601 001702 CMP #1,DEVCNT sCHECK IF ONLY 1 DEVICE SHOULD HAVE OPERATED 
1334 006712 901470 BEQ TST17 33<IF EQUAL, GO TO NEXT TEST> 

STENT ENS RN SSRN STEN ES ENS EN SS EN ES EN SSRN SS EN ESN EARN ESN EAN ES REN EON S/N: 

TTENSAEN SSRN SS EN SSN SS EN SS EN SSRN ES IN EDEN SSRN SSRN SEN ESN SN ESN EN ON: 

;BE2 TRANSFER CHECKS 

STINRT ENR ENR ENA EN ENA ENR NZ NL NZ NS NL Ne NL NN ee 

STINRT ENR ING ENR NZ NZ NA EN EN NZ ENR EN NL N\A 
1342 006714 012701 020510 MCV #ATEND,R1 ;USE R1 TO POINT TO END OF PROG 
1343 006720 023701 001716 5$: CMP DATA2,R1 see K FOR 2000 BYTES PAST END 
1344 006724 001413 BEQ 6$ F EQUAL, EXIT 
1345 006726 022721 052525 CMP #052525, (R1)+ ‘ELSE COMPARE EXPECTED ate WITH R1 
1346 006732 001 BEQ $ QUAL, GO CHECK NEXT LOC 
1347 006734 014137 001164 MOV -(R1) ,$REG1 “MOVE R1 TO REG] FOR TYPEOUT 
1348 006740 010137 001162 MOV R1,$REGO 
1349 006744 012737 052525 001170 MOV #052525 , $REG3 
1350 006752 104020 ERROR 20 sELSE TYPE ERR MSSG 
1351 006754 6$: 
1352 006754 022737 000002 001702 CMP #2,DEVCNT ;CHECK IF ONLY 2 DEVICES GPERATED 
1353 006762 001444 BEQ TST17 33<IF EQUAL, GO TO NEXT TEST> 


+7 Ak +t heh +1 Aa tt a tt a TT Ta TT TTA TT LATTA TTA ATTA ATT LATTLATILATTAATT AAT 
AAV AAT AAT AAT AAT AATTAATTLATTAATTAATTLATIAATTLATTLATTLATIAATT AA TIAA Tt 





J 
UNIBUS EXERCISER MACY11 enn Ee 04-OCT-79 12:49 PAGE 29 
CZKUAE .P11 27-SEP-79 09:25 T16 MULTITRANSFERS I1 SEQ 0035 


3BE3 CHECK ROUTINE 
SANZ NRT NR NR NZ ENRZ NZ ENRZ NRL NZ NRL NRL NRL NR NRL NRL NR NO 
STINT NRA ENR ENR NRA ENR ENR ENR ENR ENR ENR NES NRT NEN NO NO NO 


1361 006764 105777 172650 16$: TSTB @BE3(R1 sCHECK IF DEVICE 3 DONE 

1362 006770 100401 BM! 20$ SIF YES, CHECK NEXT DEVICE 

1363 006772 000774 BR 16$ ZAND GO BACK TO SEE IF DONE YET 
1364 006774 208: 

1365 006774 022777 176002 172630 CMP #-1776,@BE3DB ;CHECK FOR CORR VALUE IN BE3DB 
1366 7002 001407 BEQ 25$ IF EQUAL, SKIP ERR 7YPE OUT 
1367 007004 017737 172622 001164 MOV @BE 3DB , $REG1 SMOVE FOR ERR TYPE OUT 

1368 007012 012737 176002 001166 MOV #-1776, $REG2 

1369 007020 104032 ERROR 32 ; TYPE ERR MSSG 

1370 007022 25$: 

1371 007022 022737 000003 001702 CMP #3,DEVCNT 3CHECK_IF ONLY 3 DEVICES OPERATED 
1372 007030 001421 BEQ TST17 33<IF EQUAL, GO TO NEXT TEST> 


STENSARNEAENSSEN STINTS ENS IEN SSNS IN ES IN SIN ESN SIONS IN SSNS ONES IEN SS ION: 

/*\: TEN STEN SAIN STINE EN ES IEN ESN SS IN SS IOEN ES IEN ESN SSN ESN ELENA IEN SIONS ON: 
3BE4 CHECK ROUTINE 

STINT NRT ENT NRT NRT NRT NZ NS NRL ENR NES NRL NR NRL NO NRL NI NO 

STINT NRA ENR ENR NRT ENE ENR ENR ENOZ NZ NRA NNR NZ NZ NZ NZ NO 


1380 007032 22$: 

1381 007032 105777 172616 TSTB @BESCRI :TEST IF DEVICE 4 IS DONE 

1382 007036 100375 BPL 22$ ZIF NOT, GO BACK TO DELAY RTN 
1383 007040 022737 003000 001172 CMP #3000, SREG4 SCHECK IF REG4 COUNTED 3000 INTRS 
1384 007046 001407 BEQ 26$ IF EQUAL SKIP ERR TYPE OUT 

1385 007050 013737 001172 001164 MOV SREG4 ,SREG1 MOVE FOR TYPE OUT 

1386 007056 012737 003000 001166 MOV #3000, SREG2 

1387 007064 104033 ERROR 33 TYPE ERR MSSG 

1388 007066 268: 

1389 007066 042777 040000 172564 BIC WB1T14,@BE4CR2 ;ELSE CLEAR TIME DELAY BIT 

1390 ett iietitiiiiitiiiiititigitiiititiiitiiiiiiiiiiii titer iris) 
1391 i*TEST 17 DUMMY END OF PR 

1392 TIRE IOI SOISOIDIRISIDOIDISIDIIOIDIOIDIOIDIIIIOIIOIOIOIOIOIIOIIUIIOIOIIOIOUII I Toi fotiottk 
1393 007074 000004 TST17: SCOPE 

Hf 007076 012737 000001 001212 MOV #1,S$TIMES 7:D0 1 ITERATION 

1396 007104 017700 172036 MOV a@$TKB,RO ;MOVE READ BUFF ees TO RO 
1397 007110 022700 000210 CMP #210,R0 :DOES THE VALUE = 

1398 007114 001001 BNE 10$ :1F NOT GO TO 10$ 

1399 007116 000000 HALT TELSE HALT THE PROGRAM 

1400 007120 10$: 

1401 007120 000137 015206 JMP 

1402 DSSS IIE ISOIIOIDIOIDIISIIIIOIIOIUIIOIOUIIOOIOIOIUUI OR rin iittttrts 
1403 SET UP DEVICE INTR VECTOR 

1404 TOISAS ISOS IOI IDISIIOIIOIIO I IUIIOIOIDIDIOIOIIOIIOIIIOUOISI IO oi itith ttt 
cone 007124 Si: 

1407 007124 017737 172456 001714 MOV @BE 1BA,DATAI ;MOVE ADDR JN BE1BA TO DATA] AND 
1408 007132 162737 000002 001714 SUB #2,DATA1 ;SUB 2 TO GET ACTUAL ADDR 

1409 007140 012737 000001 001206 MOV #1, $TMP4 [SET INDICATOR FOR DEVICE 1 

1410 007146 005777 172436 TST @BE1CR1 :TEST FOR ERROR 


EXS ; EXIT 
1412 007154 000434 BR CHE X SELSE FIND CAUSE OF INTR 





UNIBUS EXERCISER 


CZKUAE .P11 


MACY11 30A(1052) 


27-SEP-79 09:25 


017737 


172440 
000002 


000002 
172420 


04-0CT-79 
117 DUMMY 


S2: 


12:49 PAGE 30° 
END OF PROGRAM 


@BE 2BA , DATA2 
2.DATA2 


MOVE ADDR IN BE2BA TO DATA2 AND 
* SUB 2 TO GET ACTUAL ADDR 
SET_ INDICATOR FOR DEVICE 2 


STEST FOR ERROR 
IF PLUS EXIT 
sELSE FIND CAUSE OF INTR 





UNIBUS EXERCIS 
CZKUAE .P11 


1420 


007210 
1421 007210 


1422 007216 
1423 007222 


ER MACY11 POAT? 
27-SEP-79 09:25 


012737 ese 001206 
005777 17241 
100015 


eo ee 
DUMMY 


MOV 
TST 
BPL 


L 
12:49 PAGE 31 
END OF PROGRAM 


#3,STMP4 
@BESCR1 
EXS 


—~wSET INDICATOR FOR DEVICE 3 
; TEST FOR ERROR 
:1F PLUS, EXIT 


SEQ 0037 





M 3 
UNIBUS EXERCISER MACY11 30A(1052) 04-OCT-79 12:49 PAGE 32 
CZKUAE .P11 27-SEP-79 09:25 T17 DUMMY END OF PROGRAM SEQ 0038 
1424 007224 000410 BR CHE X ELSE FIND CAUSE OF INTR 


1425 007226 S4: 
1426 007226 005237 001172 INC $REG4 COUNT DEVICE 4°S INTRS 


ee EXERCISER 


MACY11 seoebie” e's -79 12: 
DUMMY 


49 PAGE 33" 


END OF PROGRAM 


#4 ,STMPS 
@BE4CR1 
EXS 


(SP) , SREGS 
PC,ERRTN 


:SET ark can FOR DEVICE 4 
TEST FOR ERROR 
IF PLUS, EXIT 


:FOR TYPEOUT OF PC 
ELSE FIND CAUSE OF INTR 


J AAR RRR REREEEREAEREERERREEREEKEEERKEKERKEEKEKREKKKE 
FFARR REE EEAEERRAEEEEERERREEEREEKEREREEEEERREEREREEREEKKEKEEEE 


ZKUAE P11 27=SEP=79 09:25 

1427 007232 012737 000004 001206 Mov 
1428 007240 005777 172410 TST 
1429 007244 100004 BPL 
1430 007246 CHEX: 

1431 007246 011637 001174 MoV 
1432 007252 004737 010166 JSR 
1433 007256 EXS: 

1434 007256 000002 

1435 

1436 

1437 007260 MULTI 

1438 007260 012702 020510 MoV 
1439 * 007264 012705 005000 MOV 
1440 007270 004737 010610 JSR 
1441 007274 004737 010722 JSR 
1442 007300 012777 020510 172300 MOV 
1443 007306 012777 17 172270 MOV 
1444 007314 012777 006202 172340 MOV 
1445 007322 012777 000340 172334 MOV 
1446 007330 052777 04 172256 BIS 
1447 007336 012777 042560 172244 MOV 
1448 122737 1702 C 
1449 007352 001474 BEQ 
1450 007354 ite” 

1451 007354 012777 006226 172504 MOV 
1452 012777 000340 172300 MOV 
1453 007370 012777 020510 172224 MOV 
1454 007376 012777 177000 172214 MOV 
1455 007404 012777 024510 172212 MOV 
1456 007412 122737 170 CMPB 
1457 007420 001451 BEQ 
1458 007422 4$: 

1459 007422 012777 172244 MOV 
1460 007430 010377 172176 MOV 
1461 007454 012777 006252 172030 MOV 
1462 007442 012777 022510 172166 MOV 
1463 007450 012777 177000 172156 MOV 
1464 007456 052777 172160 BIS 
1465 007464 012777 003160 172146 MOV 
1466 007472 122737 17 CMPB 
1467 007500 001421 BEQ 
1468 007502 5$: 

1469 007502 010477 172140 Mov 
1470 007506 012777 000340 172164 MOV 
1471 007514 012777 006276 172154 MOV 
1472 007522 012777 024510 172122 MOV 
1473 007530 012777 177000 172112 MOV 
1474 007536 012777 003104 172110 MOV 
1475 007544 6$: 

1476 007544 005277 172030 INC 


1482 


HATEND ,R2 yR2 = END OF 
#5000,R5 ‘R5 = THE # OF DATA WORDS 
PC, DOUP SCREATE THOSE WORDS IN BUFFER MEMORY 
PC. TSTOVR 7SET UP PATTERN IN MEMORY BUFFER AREA 
WATEND,@BE1BA SET REG ADDR= 1ST LOCATION AFTER END OF PROGRAM 
#~2000,@BE1CC  :SET CYCLE COUNT FOR 2000 XFERS 
WSERV1,aBE1VEC :SET UP DEVICE INTR VECTOR 
1PSW SET UP DEVICE PSW VECT 
WBIT14,a@BE1CR2 :SET BIT 14 FOR TIME DELAY ENABLE 
#42560, @BE1CR1 :DO DAT IP/DATOB-FUN 1=-NPR=INTR ON DONE (7) 
#1, DEVCNT [IF MORE THAN 1 DEVICE, LOAD THEIR REGISTERS 
6$ OTHERWISE MBEGIN TESTING 
#SERV2, aBE2VEC zSET UP DEVICE 2 INTR VECTOR 
#PR7, ABE 2PS' 7SET UP DEVICE 2 PSW VECTOR 
#ATEND SSE OBA [SET UP ADDR REG FOR SAME LOCATIONS AS DEVICE 1 
#-1000,aBE2CC :SET CYCLE COUNT FOR A 1000 XFERS 
#24510, @BE2CR1 :DO DATIP/NO ROTATE-FUN 2-BR6-INTR ON DONE (6) 
#2. DEVCNT TIF MORE THAN 2 DEVICES, LOAD THER REGISTERS 
SOTHERWISE BEGIN TESTING 
WPR7 @BESPSW =; SET Up DEVICE 3 PSwW VECTOR 
R3, aBE 3DB IN R3 TO DEVICE DATA REG 
WSERV3, aBE 3VEC *SET wp DEVICE INTR VECTOR 
WATEND+2000,@BE3BA ;SET UP ADDR REG 
#-1000,aBE3CC  ;SET UP FOR 1000 XFERS 
WB1T14.aBESCR2 :SET BIT 14 FOR TIME DELAY ENABLE 
#3160,aBE3CR1  :DO DATO-FUN 1-F -INTR ON DONE (7) 
#3,DEVCNT SIF A 4TH NeVICE. GO AND LOAD REGISTERS 
6$ [OTHERWISE BEGIN TESTING 
,@BE4DB :MOVE PATTERN IN R4 TO DEVICE DATA REG 
7,@BE4PSW  :SET UP DEVICE 4 PSW VECTOR 
WSERV4,@BE4VEC :SET UP DEVICE 4 INTR VECTOR 
WATEND +4000 @BE4BA ;SET UP ADDR REG 
#-1000,aBESCC ;SET CYCLE COUNT FOR 1000 XFERS 
#3104,@BE4CR1 :DO DATO-FUN 1-BRS-INTR ON DONE 
@SIMLGO ;START DEVICES SIMULTANEOUSLY 


7 AAI AAT LATTA AATILATILATILATILATILATILATILATILATILATILATILATILA TIAA TS 
PT AAVIAAT AATILATILATILATILATILATILATILATILATILATILATILATILATILATIALATTAAT 


CKGROUND ROUTINE FOR MULTITRANSFERS | 
007550 012737 000001 001164 MOV 


#1, $REG1 


;MOVE 1 TO TEMPORARY REG 


SEQ 0039 


B 4 
UNIBUS EXERCISER MACY11 seat tetas aa 12:49 PAGE 34 
CZKUAE .P11 27-SEP-79 09:25 DUMMY END OF PROGRAM 
1483 007556 012701 001164 MOV #SREG1,R1 SET UP R1_AS POINTER 
1484 007562 005121 7$: COM (R1)+ ; COMPLEMENT TEMP REG 
1485 007564 006041 ROR -(R1) ROTATE CONTENTS RIGHT 
486 007566 123737 001702 001166 CMPB DEVCNT ,SREG2 ;CHECK_IF ALL DEVICES ARE DONE 
1487 007574 101372 BHI 7$ :IF NOT, CONTINUE WITH BACKGROUND RTN 
1488 DROS AEBS ISO OIE IDO IIIOI IDOI IOIIUIOIIOO EER Riot i iit 


1 
1507 
1508 


DONAaUNEWLABOS 


WONAUSWR—O 


a tt a ot a 
_ CREE SeSaaeeN ASS 


Monon 
Wr 


— sd ed od — ) od sd 
Val wah yal wat veh yat yah 
BIRAKRAV= 


STENTS ENSAENSS ENS SENSES IN SIN SSIN SINAN ESN ETON SSRN EEN TENSES EN SENT ON: 
SAEN EARNS EN ERNE N EARNS EN EARNS EN EINES EN EINE TINT IN LINEN SIN IN 
;DEVICE 1 TRANSFER CHECKS 
; THERE ARE NO CHECKS FOR BE2 
SAENZ NRA NRL NR ENRZ NRL NZ ENR ENOL NR ENR ENED NRL NE NRZ NRL NRL NO 
STINT ENR NRA ENR ENR ENO ENO ENR ENR ENR ENOL ENE ENRZ NR NES NZ NR 8 


007576 042777 040000 172010 BIC WB1T14,@BE1CR2 ;CLEAR TIME DELAY BIT 

00760 012700 020510 a MOV HATEND RO SSTART CHECKING FOR CORRECT XFERS 
007610 122720 000125 CMPB ss #1125, (RO) + : COMPARE LOWER BYTE 

007614 001012 BNE 20$ :IF NOT EQUAL, BR TO ERR MSSG 
007616 023700 001714 CMP DATA1,RO ‘IS THIS LAST BYTE COMPARE? 
007622 001422 BEQ 9$ TIF SO, BR TO 9$ 

007624 122720 000124 CMPB ss #124, (RO) + ‘ELSE COMPARE UPPER BYTE 
007630 001006 BNE 22$ ‘IF NOT EQUAL, BR TO ERR MSSG 
007632 023700 001714 CMP DATA1,RO :1$ THIS LAST BYTE COMPARE? 
007636 001414 BEQ 9$ SO, BR TO 9$ 

007640 000763 BR 3 SELSE CHECK NEXT ADDR 

007642 208: 

007642 105740 TSTB = = (RO) :SUB 1 TO GET ERR ADDR 
007644 000401 BR 248 ‘GO DO MOVES FOR ERR MSSG 
007646 22$: 

007646 005740 TST -(RO) :SUB 2 TO GET ERR ADDR 
007650 243: 

007650 011037 001164 MOV (RO) ,$REG1 :MOVES ARE FOR ERR MSSG 
007654 010037 001162 MOV RO, $REGO 

007660 012737 052125 001170 MOV #052125, $REG3 

007666 104015 a ERROR 15 ZELSE TYPE ERR MSSG 

007670 022737 000001 001702 CMP #1,DEVCNT :IF ONLY ONE DEVICE 

007676 901447 25$:  BEQ 13$ TIF NO MORE DEVICES.EXIT RTN 
007700 122737 000002 001702 CMPB ss #2, DEVCNT [CHECK FOR MORE THAN 2 DEVICES 
007706 001773 BEQ 25$ :IF NOT, EXIT TEST 


STENSSENSS ENS EN SSRN SSRN SSEN SSRN SSRN SSEN SSNS EN SS EN ES EN SJ RN SRN ESE ARN: 

t/*\: AN 2/*\2/8\2/8\2/8\: oa? ZENA RN ESN EARN SSRN EZRA SSRN JONES SONS: 
;BE3 TRANSFER CHECKS 

s/:\e/: NIFICTAIC ISAC TAN TPAC TAAL IAAL IAAL IAAL IAAL IAC IAACIAALIAALIAALIAAL. 

SAENZ ENRA SNR NR N\A NZ NR NR N\A Ne Ze Ne \ ee \e 


007710 042777 040000 171726 BIC WB1T14,@BE3CR2 :CLEAR TIME DELAY BIT OF DEVICE 3 
007716 012700 022510 MOV WATEND+2000,RO :CHECK NEXT 2000 LOCATIONS 
007722 023700 001720 10$: CMP DATA3,RO *CHECK FOR 1000 XFERS 
007726 001411 BEQ 11$ ‘IF SO, CHECK NEXT BLOCK 
020 CMP R3, (RO) + ‘TEST FOR CORRECT PATTERNS 
007732 001773 BEQ 10$ TIF NO ERR, CHECK ANOTHER LOC 
70 MOV R3, $REG3 ‘THE MOVE IS FOR TYPEOUT REASONS 


1 
007740 014037 164 MOV ~(RO) ,$REG1 


SEQ 0040 


4 


UNIBUS EXERCISER MACYi1 sectarian A mah 12:49 PAGE 35° 
CZKUAE .P11 27-SEP-79 09:25 DUMMY END OF PROGRAM 
1539 007744 010037 001162 MOV RO, SREGO 
1540 007750 104016 ERROR 16 ELSE TYPE ERR MSSG 
1541 007752 118: 
1542 007752 122737 000003 001702 CMPB #3 ,DEVCNT ;CHECK FOR MORE THAN 3 DEVICES 
1543 007760 001416 BEQ 13$ :1F NO MORE DEVICES GO DC NEXT PATTERN 


VIII 
UEWh— 


MMA VII 


RPRRK TS 
4 A 
VSSSIFALALTS 


ee a ek ek ed et ds dd ds dd 
SES 
N 


STENSTEN EARNS RN ES ENS EN STEN ESN SS EN ET ION SIN SSRN ES IN SSRN SENS AN SS EN SA EN: 

STRNSARN EARN SSRN SSRN ES EN SSRN ESN STEN ESN SSRN STEN ESENSSEN SSRN SS EN ESO EARN: 
;BE4 TRANSFER CHECKS 

STENRZ NRA ENR ENR ENR ENR ENR ENO ENE ENRZ ENR ENR ENO EN NZ NS 8 

ST ENRA ENR ENR ENR ENR ENR NZ ENT ENRZ ENR NZ ENR EN EN NS NR 7 \ 8 


007762 012700 024510 MOV M#ATEND+4000,RO ;CHECK NEXT BLOCK OF 2000 LOCATIONS 
007766 023700 001722 12$: CMP DATA4 RO :CHECK FOR 1000 XFERS 

007772 001411 BEG 13$ 7I1F SO, CHANGE DATA PATTERNS & START OVER AGAIN 
007774 020420 CMP R4, (RO)+ TELSE CHECK FOR CORRECT PATTERNS 
007776 001773 BEQ 128 :IF NO ERR, CHECK ANOTHER LOCATION 
010000 010437 001170 MOV R4,SREG3 ;THE MOVE IS FOR TYPEOUT REASONS 
010004 014037 001164 MOV ~(RO) ,SREG1 

010010 010037 001162 MOV - $REGO 

010014 104017 ERROR 17 ELSE TYPE ERR MSSG 

010016 13$: 

010016 000207 


RTS PC 
BU 
BUC 
IS daa igi ol eh lta i: hilt 


010020 005000 CLR RO :RO IS COUNTER 
010022 012701 010056 MOV #01,R1 ‘R1 IS ADDR OF INTR RTN 
010026 012702 000510 " MOV #510,R2 tR2 IS DEV INTR VEC ADDR 
010032 010122 MOV R1,(R2)+ ;LOAD INTR RTN INTO INTR VEC 
010034 012722 000340 MOV #PR7, (R2)+ [LOAD INTR PSW 
010040 062701 000006 ADD #6,R1 [GET NEXT INTR RTN 
010044 005200 INC RO ZINC COUNTER 
010046 020037 001702 CMP RO, DEVCNT TARE ALL AVAILABLE VECS LOADED? 
010052 001367 BNE 5$ [IF NOT, GO AND LOAD NEXT ONE 
010054 000207 RT PC : EXIT 
DL AAA RARE REAR RAE RAEEKAEEAE EEE EERERKEEEK 
DLR AAERAERAAERAEAERAEEEEEAREAEEKEKEKEEREREE 
: THE FOLLOWING INTR ROUTINES SHOULD HANDLE say ERRORS 
; WHICH MIGHT OCCUR BEFORE THE PROGRAM HAS A CHANCE TO 
PROPERLY CHECK OUT ALL DEVICES AND SET UP THEIR INTR VECTORS 
010056 Q1: 
010056 012737 000001 001206 MOV #1, $TMP4 z INDICATOR FOR DEV 1 : 
010064 000413 BR xQ 
019066 Q2: 
010066 012737 000002 001206 MOV #2,$TMP4 ; INDICATOR FOR DEV 2 
010074 000407 BR x0 
010076 Q3: 
010076 012737 000003 001206 MOV #3, $TMP4 s INDICATOR FOR DEV 3 
010104 000403 BR xQ 


010106 Q4: 


SEQ 0041 


UNIBUS EXERCISER 
CZKUAE .P11 27-SEP-79 09:25 


1605 
1606 


S38 


aS os SY SY SH SS 


errr rrrererrerr? fT 
RADA AAAAAO . 
WONAUSWIAI—O 


RS 


1622 


1 
010310 


012737 


004737 
000002 


010146 


105205 
062700 
120537 
001372 
105770 
100001 
104022 
032770 
001436 
032770 
001401 
104023 
132770 
001401 
104024 
132770 
001401 
104025 
032770 


032770 
001401 


MACY11 wept" 


000004 001206 


010166 


001614 
000020 
000014 
001702 


020332 


001600 


001000 


000000 


000000 
000000 


000000 


000000 


000000 


000000 


© aie? 


MOV #4, STMP4 
JSR PC,ERRTN 
RTI 


D 
12:49 PAGE 36 
DUMMY END OF PROGRAM 


4 


; INDICATOR FOR DEV 4 
:GO TO ERR ROUTINE 


5 AAR RARER REAR EERKEREREER AREER REE EE ERR E EERE 
FL ARR REARERRERRRREERREREEERREAE REE ERREE RARER ERE EEE EH 


:SAVE CONTENTS ol R1 
;SAVE CONTENTS OF RO 
RO POINTS TO DEV 1 CR2 ADDR 


CLR BIT 4 OF CURRENT CR2 
ADD TO POINT TO NEXT CR2 


MAX 

F NOT, CLR NEXT CR2 
TELSE RESTORE RO 
AND R1 


THEN DO REGULAR PWR DOWN RTN 


ISERIES ESO ISOS EISO ESOS ISIS IOI IDR Ini ii itt 
MASAASAALALASLASLALALALALASALALALASAL ALARA LRA SRR RRA A SARA ASSAD DDD SD 


PWRFAL : 
MOV R1,-(SP) 
MOV RO,-(SP) 
MOV #BE1CR2,RO0 
CLR R1 
5$: 
BIC #B1T04,a(RO) 
ADD #14,R0 
INC R1 
CMP R1,DEVCNT 
BLO 5$ 
MOV (SP)+,RO 
MOV (SP)+,R1 
SPWRDN 
ERRTN: 
SAVREG 
MOV 
CLRB 
1$: 
INCB R5 
ADD #14,R0 
CMPB R5,$TMP4 
BNE 1$ 
CHKERR: 
TSTB a(RO) 
BPL 1$ 
- ERROR 22 
BIT #7540,a(RO) 
BEQ LE 
BIT #B1T11,a(RO) 
BEQ 10$ 
ERROR 23 
10$: 
BITB #B1T05,a(RO) 
BEQ 2s 
ERROR 24 
23: 
BITB #B1T06,a(RO) 
BEQ 3$ 
3s ERROR 25 
BIT #B1T08,a (RO) 
BEQ 4$ 
ea ERROR 26 
BIT #B1T09,a(RO) 
BEQ 5$ 


SAVE REGISTERS 


— RO ; INITIALIZE R 


RO 
CLEAR DEVICE COUNTER 


ADD 1 TO COUNTER 

SET RO=ADDR OF CR2 OF NEXT DEVICE 
:1F COUNTER NOT EQUAL TO INDICATOR 
;ADD 1 TO COUNTER & CHECK AGAIN 


CHECK FOR NO NOSACK TIMEOUT 
:I1F NOT, SEE IF THERE ARE ANY ERRS 
: TYPE ERR MESSG FOR NO NOSACK 


CHECK FOR OTHER ERRORS 

:1F NO ERRORS EXIT 

CHECK FOR NO SSYN ON yl 

:1F NOT SET, CHECK FOR NEXT ERR 
TYPE ERR MSSG FOR NO SSYN ON INTR 


i CHECK FOR oe GRANT ERR 
:I1F NOT, CHECK BIT 6 
ZELSE TYPE ERR MESSG FOR WRONG GRANT 


= CHECK FOR BUS LATE ERR 
;I1F NOT, CHECK BIT 8 
:TYPE ERR MSSG FOR BUS LATE 


CHECK FOR NO SSYN ERR 
3IF NOT, CHECK BIT 9 
: TYPE ERR MSSG FOR NO SSYN 


CHECK FOR WRONG ADDR ERR 
;1F NOT, CHECK BIT 10 


SEQ 0042 


UNIBUS EXERCISER 
CZKUAE .P11 


010436 


104027 
032770 


001402 


002000 


000002 
000000 


091166 
000002 


000001 


000001 


177776 
C20510 
177777 
171146 


177777 


000001 


010474 


aay bh sittin 
27-SEP-79 09:25 


000000 


001166 


171132 


E 
12:49 PAGE 37 


TYPE ERR MSSG FOR WRONG ADDR 


CHECK FOR NO GRANT ERR 
IF NOT, EXIT 
TYPE ERR MSSG FOR NO GRANT 


:POINT A DEVICE CLEAR REG 
CLEAR ALL ERRORS 
ZRESTORE” REGISTERS 


CRRA RRR ERR ERE RRR RE REE REDE RE EERE EERE REE RE RRR RE 


MASA RAAARASASASSASASLSASLALALLALALL ALES AREAL RRA LARA ARS ASS SG 
MADARA RASAASAAALAASLAAALARAASALASALAASEL ASA A SAAR A RA RRA AAAS DSS SD 


sMOVE FOR ERR TYPE OUT 
;SUB 2 FOR ACTUAL ADDR 
TYPE ERR MSSG 


FERRE REE REE REE EERE REE EEE REE RREE REE RE RER EERE 
SOUS SEO OOO OISIISIOIO OOOO IOI SIOIOIOIDIOISIIOIO IOI IO IOI I IIR 


31S LSB A 1 OR O ? 
sir @. T 


O TO 5$ 
sELSE SET C BiT OF COND CODES 
AND GO ROTATE 


:CLEAR C BIT OF COND CODES 
ZROTATE R3 

71S LSB A 1 ORO ? 

:I1F 0, GO TO 15$ 

SELSE SET C ay OF COND CODES 
SAND GO ROTATE 

:CLEAR C BIT OF COND CODES 


ROTATE R4 


FERRER KERR ERE EERE AREA EERE EKER KKK EH 
THEE O SIE CIOS SIIUICIOI ESO COOIOIOIDIDITOIISINIDIOOUODDIDIDIIOII NEI ot 


Deed -79 
DUMMY END OF PROGRAM 
ERROR 27 
BIT #B1T10,a(RO) 
BEQ LEEV 
ERROR 0 
LEEV: 
a #2,R0 
CLR a(RO) 
+ aa 
RTS PC 
THRUO: 
MOV (SP) , SREG2 
SUB #2,$REG2 
ERROR 35 
TI 
ROTATE: 
BIT #B1T00,R3 
BEQ 5$ 
SEC 
BR 10$ 
S$: 
CLC 
10$: 
ROR R3 
BIT #B1TO0,R4 
BEQ 15$ 
SEC 
BR 20$ 
15$: 
CLC 
20S: 
ROR R4 
RTS 
NOG: 
23: 
MOV RO,PSW 
MOV #ATEND,@BE1BA 
MOV #~1,@BE1CC 
MOV R1,@BE1CR1 
NOP 
CMP #-1,aBE1CC 
BNE 4$ 
ASRB R1 
CMPB #1,R1 
BNE $ 
BR EXNOG 
4$: 
JSR PC,ERRS 
EXNOG: RTS PC 


UP PROCESSOR STATUS 
DR_REG 


UP AD 

UP CYCLE ok tes FOR 1 CYCLE 

UN 1 ON BR LEVELS IN R1 

Device TO ATTEMPT TO DO XFER 
OPERATED 


:SE 
3SE 
st 
:D0 F 
;WAIT F . 


nin +44 


EXIT SUB RIN 


SEQ 0043 


F 
UNIBUS EXERCISER MACY11 30A(1052) eae 12:49 PAGE 38 


CZKUAE.P11 =. 27=SEP=79 09:25 T17 DUMMY END OF PROGRAM SEQ 0044 
1707 SLR ERE ERE RRR RRR EERE ERE EERE RRR 
1708 010474 ERRS: 
1709 010474 017737 171192 001162 MOV @BE 1DB , SREGO sMOVES ARE FOR TYPEOUTS 
1710 010502 017737 171076 001164 MOV @BE1CC, $REG1 
1711 010510 017737 171072 001166 MOV @BE 1BA, $REG2 
1712 010516 017737 171066 001170 MOV @BE1CR1,$REG3 
1713 010524 010037 001172 V RO, $REG4 
1714 010530 104002 ERROR 
1715 010532 000207 PC ;EXJT ERROR RTN 
1716 DLR RRR EERE EERE REE EREEREEE EERE EERE ERE EE ER ER 
1717 SLE EERE REE EE EERE EERE REE RERERE REE EERE EE ERR 
1718 010534 BKGD: 
1719 010534 012737 031463 001164 MOV #031463,$REG1 START OF BACKGROUND ROUTINE 
1720 010542 012701 001165 MOV #$REG1+1,R1 [USE R1 TO POINT TO TEST PATTERN 
1721 010546 105441 1$: NEGB -(R1) ;DECREMENT LOC AND NEGATE BYTE=(031715) 
1722 010550 105421 NE GB (R1)+ ZNEGATE BYTE THEN INCREMENT LOC=(031463) 
1723 010552 105421 NE GB (R1)+ :NEGATE BYTE THEN INCREMENT LOC=(146463) 
1724 010554 105770 000000 TSTB a(RO) TEST FOR DONE BIT OF DEVICE IN RO 
1725 010560 100402 BMI 2$ SIF DONE, GO CHECK RESULTS 
1726 010562 105441 NE GB -<R1) ELSE DECREMENT LOC AND NEGATE BYTE=(031463) 
1727 010564 000770 BR 1$ ; CONTINUE WITH BACKGROUND 
18 010566 2$: 
1730 010566 005741 TST -(R1) ;BRING POINTER DOWN TO REG1 
1731 010570 022711 146463 CMP #146463, (R1) ; COMPARE EXPECTED PATTERN WITH THAT IN R1 
1732 010574 001404 BEQ BKEX IF EQUAL "ene. THIS RIN 
1733 010576 012737 146463 001166 MOV #146463,$REG2 :MOVE FOR TYPE OUT 
1734 01 104031 ERROR 31 sELSE TYPE ERR MSSG 
1735 010606 000207 BKEX: RTS PC 
1736 LR REE EERE RRR E ERE RRR E ERE ek 
1737 DDRII IDI ICID III ICU II IIR itm it 
1738 010610 : 
1739 010610 612701 000001 MOV #1,R1 :INIT R1 TO 1 
1740 010614 5$: 
1741 010614 010122 MOV R1,(R2)+ sMOVE CONTENTS OF R1 TO AREA IN R2 
1742 010616 005201 INC R1 ;ADD 1 TO R1 
1743 010620 020105 CMP R1,R5 31S # OF MOVES = TO # IN R5? 
1744 010622 101774 BLOS 5$ LIF NOT, DO ANOTHER MOVE 
1745 010624 000207 RTS PC TELSE EXIT 
1746 DLR EEE EERE ERE ERE REE EERE EERE EERE ERE RE 
1747 DORI IOI IDIOIIDISIOIIOIIIIUIUIOIIOIIIUIOIIT IOI IOUT UDR itot tt 
1748 
1749 010626 CNTR: 
1750 010626 012737 000001 001172 MOV #1, $REG4 INITIALIZE COUNTER REG 
1751 010634 062737 000001 001172 1$: ADD #1, SREG4 SADD 1 TO IT 
1752 010642 022737 000106 001172 CMP tea ;DELAY AT LEAST 41 US 
1753 010650 001371 BNE ZF NOT, GO BACK AND ADD 1 TO REG4 
1754 010652 000207 RTS 7 EX 
1755 PEER REE ERE ERE EEE REE 
1756 TUTTI TTT ETT TEETER 
1757 010654 ADLI: 
1758 010654 012700 040000 MOV #40000 ,RO ;USE RO TO SET BIT 14 
1759 010660 1$: 
1760 010660 012777 177777 170716 MOV #-1 ,@BE1CC ;SET CYCLE COUNT = 1 XFER 
1761 010666 010077 170714 MOV RO, @BE1BA SET ADDR AS pect ite IN RO 
1762 010672 012777 002041 170710 MOV #2041, @BE1CR1 ;D0 DATI-FUN 1-NPR 


UNIBUS EXERCISER 


CZKUAE .P11 27-SEP-79 
1763 010700 737 
1764 0107) 022700 
1765 010710 001403 
1766 010712 012700 
1767 010716 000760 
1768 010720 
1769 010720 000207 
1779 
1771 
1772 010722 
1773 010722 012737 
1774 010730 005037 
1775 010734 012700 
1776 010740 012720 
1777 =010744 2700 
1778 010750 001373 
1779 010752 207 
1780 
1781 
1782 
1783 010754 005015 

011037 01 
011144 050103 
011212 040440 
011243 103 
011306 042504 
011356 042502 
011446 050103 
011500 042502 
011561 103 
011617 103 
011655 103 
011713 103 
011751 117 
12017 124 
012074 020040 
012155 102 
012243 102 
012314 050103 
12402 042502 
012443 . 103 
012526 042444 
012547 103 
012632 042504 
012707 124 
012775 115 
013026 046040 
013107 104 
013175 104 
013263 104 
013357 104 
013453 102 
013545 104 
3607 102 
013660 044502 
013726 044502 


MACY11 Pm Oe ae 


09:25 
010626 
100000 


100000 


020124 


177776 


EXAD: 
TSTOVR: 


1$: 


04-0C¢T-79 
? D 


6 4 
12:49 PAGE 39 
UMMY END OF PROGRAM 
JSR PC, CNTR :ALLOW TIME FOR RDY BIT TO SET 
CMP #160000,R0 SCHECK IF BIT 15 OF RO IS SET 
BEQ EXA ‘IF SET, GO SET NEXT ADDR LINE 
MOV #100000,RO “ELSE, NOW SET BIT 15 OF RO 
BR 1$ [GO BACK AND CHECK THAT ADDR 
;EXIT SUB ROUTINE 
MADBABSBAAAALALSAAL£AALALAESSLALASAER ASE SESE ERE SERRE RR RRR RRR ASRS ESAS SS 
MABAAAAAAALALAALSLALELESSALESESLE SELES SESE REARS RARERRRRRRRRARRRE 
MOV #PR3,PSW :PS=3 
CLR SRE Ge : CLEAR REG FOR odNTR ON DONE COUNTER 
MOV [SET UP RO AS POINTER 
MOV MoSoeo. <RO)* “MOVE DATA PATTERN To AVAILABLE MEMORY 
CMP WATEND+2000,RO ;CHECK FOR A 2000 MOVES 
BNE 1$ :IF NOT, GO BACK pred MOVE AGAIN 


° 
FL AAA RERR REE REE AEEERREAEREAEEARRERAEERER ERE EEK 
SLR RTE RR E RE EEEEREEREERE ERE EERERER EEE EERE EER EERE EE ERE ERE 


<15><12><15><12>\UNIBUS SYSTEMS EXERCISER DIAGNOSTIC - CZKUA-E \ 
<15><12>\DEV_4 MUST HAVE Ye DELAY SET @ 100 US OR LATENCY ERR MAY OCCU 
\CPU_ TRAPPED -TIMEOUT \ 


-ASCIZ 


THRU LOCATION 
ADDR _S$ERRPC M#ERR/TS tA 
\CPU ISSUED A BUS GRANT WITH PSW = 7\ 


BEICC FM-PS  TO-PS SERRPC #ERR/TSTA\ 
GRANT 7\ 


ISSUE BUS GRANT 4\ 

\ONE OR MORE DEVICES DID NOT_INTERRUPT\ 
\THIS_IS THE ORDER IN WHICH THEY INTERRUPTED\<15><12> 
\_ 1ST 2ND 3RD 4TH  SERRPC #ERR/TSTA\ 
\SUS ADDRESS LINES <A17:Ai4> DID NOT FUNCTION PROPERLY\ 
\BE1CR1 BEICR2 BEIBA SERRPC #ERR/TSTA\ 
\CPU NO SACK TIMEOUT LOGIC FAILED(TO NEGATE BUS GRANT)\ 
\BE1CR1 BEICR2 SERRPC #ERR/TSTA\ 
\CPU DID NOT PROPERLY EXECUTE AN ACLO/DCLO SEQUENCE \ 
\SERRPC_#ERR/TSTA\ 
\CPU DID NOT TRAP FROM BUS PARITY ERROR PA/PB = 0/1\ 
\DEV 1 DID DATIP WITH ROL ON DATOB TO MEMORY\<15><12> 
\THE TRANSFER TO THE FOLLOWING LOCATION WAS INCORRECT\ 

MORY ACTUAL CORRECT\<15><12> 
\ LOC DATA DATA __SERRPC #ERR/TST# SICNT #\ 
\DEVICE 3°S DATO TO MEMORY DID NOT EQUAL PATTERN IN R3\ 


\DEVICE 1 DOING a 1-NPR=DATIP; INCORRECT PATTERN IN ee 
UN 2-NPR-DATOB; INCORRECT PATTERN IN MEMORY\ 

CR2 SET=CPU DID NOT TIME OUT WITH SACK INHIBI TED\ 

P RRPC_ M#ERR/TSTA\ 


\DEVICE c. DOING 
\BIT 70 


\DEV # 

\BIT 11 OF CR2 SET-NO SSYN ON INTR SIGNAL\ 
\BIT 5 OF CR2 SET-RECEIVED WRONG GRANT \ 
\BIT 6 OF CR2 SET~BUS LATE\ 


MASTER\ 
BEIBA BEICRI PSW S$ERRPC #ERR/TSTA\ 
BUS NPG\ 


SEQ 0045 


UNIBUS EXERCISER MACY11 30A(1052) 04-OCT-79 12:49 PAGE 40" 
CZKUAE .P11 27-SEP-79 09:25 117 DUMMY END OF PROGRAM SEQ 0046 


013760 044502 020124 020070 EM26: -ASCIZ \BIT 8 OF CR2 SET=NO igh SSatse on 
014022 044502 020124 020071 EM27: .ASCIZ \BIT 9 OF CR2 SET-WRONG ADDRESS ON BUS\ 
014071 02 052111 030440 &M30 -ASCIZ \BIT 10 OF CR2 SET=DEVICE RECEIVED OTHER THAN ONE GRANT\ 
014160 045502 047107 020104 €&M31 ASCII \BKGND ROUTINE INSTRUCTIONS OF NEGB'S WERE NOT DONE\<15><12> 
014244 047503 051122 041505 ASCIZ \CORRECTLY TO $REG1 DURING MULTITRANSFERS II\ 
014320 041501 052524 046101 DH31 -ASCII No ges CORR'T \<15><12> 
14342 5 040524 ASCIZ \DAT. DATA SERRPC #ERR/TSTA SICNT #\ 
014413 1 053105 031440 EM32 -ASCIZ \DEV 3 DID DATI BUT HAS INCORRECT pet IN DATA REG\ 
014477 104 053105 2040 EM33 ASCIZ \DEV 4 DID NOT INTR THE CORRECT # OF TIMES\ 
014551 114 051501 020124 EM34 -ASCII Mo DATIP TO DEVICE 1 DB WAS INCORRECT- th DEVICE DID\<15><12> 
014645 116 052117 3440 -ASCIZ T WORK OR BUFFER AREA WAS NOT SET UP PROPERL 
014725 o1see3 041412 052520 &M35 cy USS TOS \CPU TRAPPED THRU LOC 0 TO CATCH IMPROPERLY LOADED VECTORS\ 
015022 001166 001116 001102 ODT1: . WORD ees tee STSTNM,0 
015032 001162 001164 001166 DT2: -WORD $REGO,$REG1 ,$REG2, SREG3.S$REG4, SERRPC ,$TSTNM, 0 
015052 001162 001164 001166 ODT3: -WORD $REGO,$REG1, ;SREG 336 SERRPC ,$TSTNM, 0 
015070 001164 001166 001170 DT10 «WORD $REG1 ~SREG2. SRE SREG4 ,SERRPC ,STSTNM,0 
015106 001164 001166 001170 DT11: -WORD $REG1,S$REG2, SREG3, SERRPC ,STSTNM,0 
015122 001162 001164 001116 DT12: - WORD SREGO, $REG1 *SERRPC, $TSTNM,O 
015134 001116 001102 000000 DT13: “WORD  SERRPC,S$TS TNM, 0 
015142 001162 001164 001170 DT15 -WORD $REGO, sree »SREG3, SERRPC ,STSTNM,SICNT,O 
51 001206 001174 001116 DT22: -WORD $TMP4,S$REGS,SE ERRPC, STSTNM,0 
015172 001164 001166 001116 net ot «WORD $REG1 *SREG2. SERRPC, STSINM. SICNT,O 
(2) RII I III IOI III III IOI IOI III RRR tit 
1784 TIC EI EE II IEC III IODIDE I trot 
1785 S| Weeeeennnnnneenenanancerseqqqneneeneeneeqnenneeteencenneeteees 
i -SBTTL END OF PASS ROUTINE 
1788 [RARE RAE RRR EERE EERE EERE EERE ERE REE ERE EERE EE 
1789 "INCREMENT THE PASS NUMBER ($PASS) 
1790 :*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YyYYYY"' 
1791 : *WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
1792 ;*IF THERES A MONITOR GO TO IT 
i? ;*IF THERE ISN'T JUMP TO TST1 
1795 015206 SEOP: 
1796 015206 SCOPE 
1797 015210 005037 001102 CLR STSTNM ;ZERO THE TEST NUMBER 
1798 015214 005037 001212 CLR STIMES 23 ZERO THE NUMBER OF ITERATIONS 
1799 015220 005237 001100 INC SPASS ; INCREMENT THE PASS NUMBER 
1800 015224 042737 100000 001100 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
1801 015232 005327 DEC (PC) + SLOOP? 
1802 015234 000001 SEOPCT: . 1 
1803 015236 003063 T SDOAGN 77YES 
1804 015240 012737 MOV (PC) +, a(PC)+ RESTORE COUNTER 
1805 015242 000001 SENDCT: . 1 
1806 015244 015234 OPCT 
1807 015246 104401 015254 TYPE $38 bby ASCIZ STRING 
1808 015252 000407 BR 64$ :GET OVER THE ASCIZ 
1809 3:65$: .ASCIZ <12><15>/END PASS’ #/ 
1810 015272 64$: 
1811 015272 013746 001100 MOV SPASS ,-(SP) 77 SAVE Ay FOR TYPEOUT 
1812 fbi ASS R 
1813 015276 104405 TYPDS :GO TYPE=-DECIMAL ASCII WITH SIGN 
1814 015300 104401 015306 TYPE .67$ >: TYPE ASCIZ STRING 
1815 015304 000421 BR 66$ 3:GET OVER THE ASCIZ 
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1816 3;67$: .ASCIZ / TOTAL ERRORS SINCE LAST REPORT / 

1817 015350 668: 

1818 015350 013746 001112 MOV SERTTL,-(SP) 3 SAVE SERTTL FOR TYPEOUT 

1819 OTAL NUMBER OF ERRORS 

1820 015354 104405 TYPDS :3¢0 TYPE=-DECIMAL ASCII WITH SIGN 

1821 015356 104401 001223 TYPE SCRLF 73 TYPE ye Bh cess LINE FEED 

1822 035362 005037 001112 CLR = SERTTL CLEAR ERROR TOTAL 

1823 015366 013700 000042 $GET42: MOV a42,R0 ::GET MONITOR ADDRESS 

1824 015372 001405 BEQ $DOAGN ; sBRANCH_IF NO MONITOR 

1825 015374 000005 RESET :-CLEAR THE WORLD 

1826 015376 004710 SENDAD: JSR PC, (RO) ::GO TO MONITOR 

1827 015400 000240 NOP 3:SAVE ROOM 

1828 015402 000240 NOP 3 

1 015404 000240 NOP 7 eACT11 

18 015406 $DOAGN: 

1831 015406 000137 JMP a(PC)+ ; ;RETURN 

1832 015410 003252 SRTNAD: .WORD TS71 

1833 015412 377 377 000 $ENULL: .BYTE <-1,~-1,0 ;sNULL CHARACTER STRING 

015416 -EVEN 

1835 -SBITL SCOPE HANDLER ROUTINE 

1837 LL E EERE RE RE REE E RE REREREEREREREREEREREEEEEREEERE 
:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

1839 : *AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 

1840 :*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

1841 >*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

1842 7 *SW14=1 LOOP ON TEST 

1843 3*SW11=1 INHIBIT ITERATIONS 

1844 ;*SWO9=1 LOOP ON ERROR 

1845 : *SWO8=1 LOOP ON TEST IN SWR<5:0> 

1846 2 *CALL 

1847 s* SCOPE ;:SCOPE=I0T 

1848 

1849 015416 SSCOPE : 

1850 015416 032777 040000 163514 1$: BIT #B1T14,aSWR ::LOOP ON PRESENT TEST? 

1851 015424 001114 BNE SOVER sYES IF SW14=1 

1852 ;MMRHASTART OF CODE FOR THE XOR TeSTERMenae 

1853 015426 000416 $XTSTR: BR 6$ 71F RUNNING ON THE 'XOR'' TESTER CHANGE 

1854 THIS INSTRUCTION TO A _‘NOP"’ (NOP=240) 

1855 015430 013746 000004 MOV @#VERRVEC ,~ (SP) i ESAVE, oo CONTENTS OF THE ERROR VECTOR 

1856 015434 012737 015454 000004 MOV #S$ ,aMERRVEC 2¢SET FOR TIMEOUT 

1857 015442 005737 177060 TST #17060 TIME. OUT. ON. XOR? 

1858 015446 012637 000004 MOV (SP) + ,@#ERRVEC ; ;RESTORE THE ge a 

1859 015452 000466 BR $SVLAD :GO TO THE NEXT TEST 

1860 015454 022626 5$: CMP (SP)+, (SP)+ SICLEAR THE STACK AFTER A TIME OUT 

1861 015456 012637 000004 MOV (SP) +, @#ERRVEC 2 sRESTORE THE ERROR VECTOR 

1862 015462 000426 BR 7$ LOOP ON THE PRESENT TEST 

1863 015464 6$:;#HHAMEND OF CODE FOR THE XOR’ TESTERMMAM 

1864 015464 032777 000400 163446 BIT #B1T08,aSWR 2: LOOP ON SPEC. TEST? 

1865 015472 001407 BEQ 2$ F_NO 

1866 015474 017746 163440 MOV @SWR ,~ (SP) >7SET DESIRED TEST NUM. FROM SWR 

1867 015500 042716 000300 BIC #SSWRMK , (SP) STRIP AWAY UNDESIRED BITS 

1868 015504 122637 001102 CMPB (SP)+,$TSTNM 320N THE RIGHT TEST? 

1869 015510 001462 BEQ SOVER 3 3 7BR IF YES 

1870 015512 105737 001103 2$: TSTB SERFLG HAS AN ERROR OCCURRED? 

1871 015516 001421 BEQ 3$ SIBR IF NO 
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015520 123737 001115 001103 SERMAX , SERFLG 

015526 BHI 

015530 001000 163402 #B1T09,aSWR 

015536 001404 4$ 

015540 001110 001106 : SLPERR,SLPADR-;; : ESET LOOP ADDRESS TO LAST SCOPE 
015546 000443 SOVER 


001103 : f SERFLG et . ERROR FLAG 

001212 STIMES ;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
BR 1$ ; ;ESCAPE TO THE NEXT TEST 

163350 : ‘pbb ; INH aaa einsel 


: <BR 
$PASS ie1F FIRST PASS OF PROGRAM 
1$ INHIBIT ITERATIONS 
$ICNT ‘INCREMENT ITERATION COUNT 
001104 STIMES,SICNT +s CHECK THE NUMBER OF ITERATIONS MADE 
SOVER ;BR IF MORE ITERATION REQUIRED 
001104 1$: #1,$ICNT ; RE INITIALIZE THE ITERATION COUNTER 
001212 MOV SMXCNT STIMES 7SET NUMBER OF ITERATIONS TO DC 
SSVLAD: TSTNM >: COUNT TEST NUMBERS 
MOV (SP) , SLPADR 72;SAVE SCOPE LOOP ADDRESS 
(SP) *SLPERR 7;SAVE ERROR LOOP ADDRESS 
SESCAPE 7 ;CLEAR THE ESCAPE FROM ERROR ADDRESS 
MOVB #1, SERMAX ; ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
SOVER: STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER 
MO SLPADR, (SP) : FUDGE RETURN ADDRESS 
00000 TI scFIXES PS 
015672 SMXCNT: 40 77MAX. NUMBER OF ITERATIONS 
-SBTTL ERROR HANDLER ROUTINE 


St as SS SS SS SS os SS Ss SS SS 3 HY 
4 


PRS RESELL tt toh tot 


3 


FF RRR ERE EEEKEREEEEEREKEREEEEKEEEEEREEKE 
7*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
; *SAVE THE ERROR ITEM yo AND THE ADDRESS OF THE ERROR CALL 
; *AND O SERRTYP ON ERROR 
:*THE SWITCH sat > my PROVIDED BY THIS ROUTINE ARE: 
7*SW15=1 T ON ERROR 
+ *SW13=1 ONIBIT ERROR TYPEOUTS 
> *SW10=1 BELL ON ERROR 
7 *SWO9=1 LOOP ON ERROR 
7 *CALL 
i* N 7 zERROR=EMT AND N=ERROR ITEM NUMBER 


015674 SERROR: 
105237 7$: SERFLG 23 SET THE ERROR FLAG 
001775 E 7$ ;DON'T LET THE FLAG GO TO ZERO 
$TSTNM,@DISPLAY :;DISPLAY TEST NUMBER AND ERROR FLAG 
#B1T10,aSWR +o ee ON ERROR? 
1$ SKIP 
. : FRING BELL 
SERTTL T THE NUMBER OF ERRORS 
(SP) , SERRPC 7:GE1 ADDRESS OF ERROR INSTRUCTION 


#2, SERRPC 
@SERRPC,SITEMB ;;STRIP_AND SAVE THE ERROR ITEM CODE 
#81113, aSWR 2¢SKIP TYPEOUT IF SET 

20$ :SKIP_TYPEOQUTS 

ee 7:G0 TO USER ERROR ROUTINE 


1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 

909 


~T 
» *) 
= 
oO 


ek ak kd dd a 
OOOOOO00O0O 
ed ed aed aed cad aed eed dd 
WOSONAUSWN— 


es) 
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1928 015770 208: 
1929 015770 005777 163144 2$: TST aSwR ;7HALT ON ERROR 
1930 015774 100001 BPL 3$ + ¢SKIP IF CONTINUE 
1931 015776 000000 HALT ie ‘<t0b T ON ERROR! 
1932 016000 032777 001000 163132 38: BIT #B1T09,aSWR ; LOOP wa ERROR SWITCH SET? 
1933 016006 001402 BEQ 4$ s 
1934 016010 013716 001110 MOV SLPERR, (SP) BUDGE RETURN FOR LOOPING 
1935 016014 005737 001214 4$: TST SESCAPE +3 CHECK FOR AN ESCAPE ADDRESS 
1936 016020 001402 BEQ 5$ F NONE 
bb a 14 Benss 013716 001214 $$ MOV SESCAPE , (SP) +: FUDGE RETURN ADDRESS FOR ESCAPE 
1939 016026 022737 015376 000042 CMP MSENDAD , a442 3zACT=-11 AUTO-ACCEPT? 
1940 016034 001001 BNE 6$ 3; BRANCH IF NO 
1941 016036 000000 HALT seVes 
1942 016040 6$: 
1943 016040 000002 RTI 7; ;RETURN 
1948 -SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
1946 SII RI RIT TIT IIIT TTT TTT ITT TIT ITO TOTO TTT TOIT TTT III 
1947 SSTHIS ROUTINE USES THE ‘“‘ITEM CONTROL BYTE’ ($1TEMB) TO DETERMINE WHICH 
1948 :*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ (SERRTB), 
1 :*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
1951 016042 SERRTYP: am 
1952 016042 104401 001223 TYPE $CRLF zc" ‘CARRIAGE RETURN’ & ‘LINE FEED 
1953 016046 010046 MOV RO,-(SP) 77 SAVE R 
1954 016050 005000 CLR RO 7zPICKUP THE ITEM INDEX 
1955 016052 153700 001114 BISB a#$1TEMB,RO 
1956 016056 001004 BNE 1$ :IF ITEM NUMBER IS ZERO, JUST 
1957 TYPE THE PC OF THE ERROR 
1958 016060 013746 001116 MOV SERRPC ,-(SP) 7 SAVE SERRPC FOR TYPEOUT 
1959 ;zERROR ADDRESS 
1960 016064 104402 TYPOC 3:G0 TYPE--OCTAL ASCIICALL DIGITS) 
1961 016066 000426 BR 6$ ET OUT 
1962 016070 005300 1$: DEC RO 3 TADJUST THE INDEX SO THAT IT WILL 
1963 016072 006300 ASL RO ne WORK FOR THE ERROR TABLE 
1964 016074 006300 ASL RO 
1965 916076 006300 ASL RO 
1966 016100 0627 001226 ADD A#SERRTB,RO tf ORM TABLE POINTER 
1967 016104 012037 016114 MOV (RO) +, 2$ TIPICKUP ‘ERROR MESSAGE'' POINTER 
1968 016110 14 BEQ 3$ 3:SKIP TYPEOUT IF NO POI NTER 
1969 016112 104401 TYPE 7: TYPE THE ‘ERROR MESSAGE*’ 
1970 016114 000000 : 23: «WORD 0 72‘ ERROR MESSAGE’ POINTER a HER E 
1971 016116 104401 001223 TYPE -SCRLF 32° ‘CARRIAGE RETURN'' & LINE FEED*’ 
1972 016122 012037 016132 3$: MOV (RO)+,4$ ;zPICKUP ‘DATA HEADER’’ POINTER 
1973 016126 1404 BEQ 5$ 23SKIP TYPEOUT IF 0 : 
1974 016130 104401 TYPE 32 TYPE THE ‘DATA HEADER" 
1975 016132 000000 4$: -WORD 0 32° DATA HEADER’’ POINTER GOES HERE, 
1976 0161 104401 001223 TYPE -SCRLF 32° CARRIAGE RETURN’ & LINE FEED 
1977 016140 011000 5$: MOV (RO) ,RO 3zPICKUP ‘DATA Hy we * POINTER 
1978 016142 001004 BNE 7$ 2260 TYPE THE DATA 
1979 016144 012600 6$: MOV (SP)+,RO 7 RESTORE RO : 
1980 016146 104401 001223 TYPE , SCRLF 23 CARRIAGE RETURN'' & "LINE FEED’ 
1981 016152 000207 RTS PC 7 RETURN 
1982 016154 7$: 
1983 016154 013046 -. . MOV a(RO)+,-(SP) 77 SAVE a(RO)+ FOR TYPEQUT 
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1985 
1987 
1988 
1989 
1991 
1992 
teez 
1995 
1996 
1997 
1998 
1999 
2001 
2002 
2003 
2005 
2006 
2007 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2031 
2032 
2033 
2035 
2037 


2038 
2039 


016176 
016200 


01 
016314 


016316 


01 
016332 


016172 
000 


000004 
162732 
162726 
177600 
000004 
162700 
162674 
177600 
000021 
000004 
000004 
000040 


016424 
016442 
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000140 
000175 
000004 
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TYPOC 33G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
TST (RO) :;1S THERE ANOTHER NUMBER? 
BEQ 6$ ;;BR IF NO 
TYPE 8$ sz TYPE TWO(2) SPACES 
BR 7$ seh 
8$: oly , Ff 7zTWO(2) SPACES 


ot E 
-SBTTL TTY INPUT ROUTINE 


SL RRR REE EERE EEE EERE REE EEE EERE EEE EERE EERE RR EK 


“ENABL LSB 
.DSABL LSB 


SRR RIE KEKE EEK KEKE REE RE KEE KEKE EERE EKER REE 


S*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


= *CALL: 
;* RDCHR zr INPUT A SINGLE CHARACTER FROM THE TTY 
3* RETURN HERE +: CHARACTER IS ON THE STACK 
7* :zWITH PARITY BIT STRIPPED OFF 
SRDCHR: MOV (SP) ,=(SP) 72:PUSH DOWN THE PC 
MOV 4(SP) ,2(SP) +: SAVE THE PS 
1$: TSTB = a$STKS *:WAIT FOR 
BPL 1$ *:A CHARACTER 
MOVB  a$TKB,4(SP) + READ THE TTY 
BIC tT 4(SP) ::GET RID OF JUNK IF ANY 
CMP 4(SP) 423 ::I1S IT A CONTROL-S? 
BNE 3$ ‘BRANCH IF NO 
2s: TSTB = @STKS ::WAIT FOR A CHARACTER 
BPL 2$ *:LOOP UNTIL ITS THERE 
MOVB  a$TKB,-(SP) *:GET CHARACTER 
BIC #°(177, (SP) ::MAKE IT 7-B1T ASCII 
CMP (SP)+ A :21S IT A CONTROL-Q? 
BNE 53 ::1F NOT DISCARD IT 
BR 1$ ::YES, RESUME 
3$: CMP 4(SP) ,4140 2:18 iT UPPER CASE? 
BLT (CH IF YES 
CMP 4(SP) #175 3315 ITA SPEETAL CHAR? 
BGT 4$ CH IF YES 
BIC #40,4(SP) ; 7MAKE IT UPPER CASE 
4$: RTI :GO BACK TO USER 
TIGA IOOOIOIIIIEIEISISIOIOIOIUIOIIOII IEICE I IIIT TTT 
STHIS: ROUTINE WILL INPUT A STRING FROM THE TTY 
j* RDLIN :Z1NPUT_A STRING FROM THE TTY 
j* RETURN HERE “ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
* +: TERMINATOR WILL BE A BYTE OF ALL O'S 
SRDLIN: MOV R3, =(SP) ZrSAVE R3 
1$: MOV ASTTYIN,R3 +:GET ADDRESS 
2$: CMP ASTTYIN+16,R3 : :BUFFER FULL? 
BLOS 4$ ::BR IF YE 


S 
RDCHR 3:GO READ ONE CHARACTER FROM THE TTY 


SEQ 0050 
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112613 (SP)+, (R3) + 3GET ys 
000177 10$: ite (R3) IT A RUBOUT 


BNE 
001222 4$: $QUES ; 
BR SICLEAR THE BUFFER AND LOOP 


016422 3$: MOVB (R3) ,9$ :2ECHO THE CHARACTER 
016422 
000015 


#15, (R3)+ ::CHECK FOR RETURN 
$ LOOP IF NOT RETURN 
177777 -1(R3) ‘CP EAR RETURN (THE 15) 
001224 SLF 7: TYPE A LINE FEED 

(SP) +,R3 + :RESTORE R3 

(SP) ,-(SP) ;ZADJUST THE STACK AND PUT ADDRESS OF THE 
000004 000002 4 (SPS ,2(SP) +: FIRST ASCII CHARACTER ON IT , 
016424 000004 #STTYIN, 4 (SP) 


;RETURN 
9$: 0 33 STORAGE FOR ASCII CHAR. TO TYPE 
B 0 RMINATOR 


STTYIN: 16 : :RESERVE 16 BYTES FOR TTY INPUT 
SCNTLU: /*U/<15><12> 3:CONTROL ‘U"' 

000012 S$CNTLG: /*G/<15><12> ‘CONTROL = 

020122 $MSWR: .ASC <15><12>/SWR = / 


053505 S$MNEW: .ASCIZ / NEW = / 
-SBTTL ROUTINE TO SIZE MEMORY 


FDIC IIIT OR IOI OR ORAS A IASI AIA ISISSS SASS SSIS SSAA SS. 
7*CALL: 
:* JSR PC,$SIZE 


RETURN 
} SSLSTAD with CONTAIN: 
: WITH KT11 OPTION =~ LAST VIRTUAL ADDRESS OF THE LAST BANK 
:* WITHOUT KT11 OPTION =~ LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY 
;*$LSTBK WILL CONTAIN THE LAST BANK AS A SAF 
>*$KT11 IS THE MEMORY MANAGEMENT 
26! T07 mar a T USE MEMORY 


CALL 
:B1715 = 0 DON’T HAVE MEMORY MANAGEMENT OPTION 
: DETERMINED BY ROUTINE 


$SIZE: RO,~(SP) we RO ON THE STACK 
MO +6 SAV VE R1 ON THE STACK 


6.an114 :: IGNORE PARITY ERRORS WHILE SIZING 
@¥ERRVEC, 5(SP), i SAVE PRESENT ERROR VECTOR PS & PC 


@#ERRVEC +2 
SPR 73SAVE THE STACK POINTER 
32SET THE. ERRVEC PS TO THE PRESENT PS 
016546 104400 :=PUSH OLD PSwW AND PC ON STACK 
016550 012637 MOV (SP) +, @MERRVEC +2 32:SAVE THE PSW IN @#ERRVEC+2 
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105727 


MACY11 30A(1052) 
27-SEP-79 09:25 


003776 


017072 
177572 
100000 


000037 
170200 
000074 


172340 
000010 
077406 
000200 
177600 


016754 
000060 


177572 
017030 
016654 
017052 
000006 
143776 
000040 
016656 


177572 
016654 
172516 


177744 
177744 
000001 


000004 
016562 
000004 
016656 
016654 
016656 


177740 


04-OCT-79 
ROUTINE TO SIZE MEMORY 


$KT11: 


100$: 


2$: 
3$: 


4$: 


$KTOUT: 


N 
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#3776,R1 
(PC)+ 
200 


+3 SETUP ADDRESS 
USE MEMORY MANAGEMENT? 
33SET yt MEMORY MANAGEMENT 


SCOR 7BR 
PSKINEX, @WERRVEC™ ps FOR TIME 


aw 
#176200, a#$STOP 
#200, a#$MAP 


SMAPRG 

#6200, a#SSTOP 
(SP)+, (SP)+ 
a4SMAP 


$NOMAP 
0 
0. 
ni 1176200, R2 
bras (R2)+ 

, 100$ 

-(SP) 
#KIPARO,R2 
#°D8,R3 
#77406, -40(R2) 
(SP), (R2)+ 
#200 (SP) 
R3,1 
#177600, -(R2) 
-(R2 
#2$,, AWERRVEC 
#60. a4SR3 


3$ 
Haag (SP)+ 


OUT 
1 ARE YOU THERE? 
TIYES=-SET_KT11 KEY 


23SET FOR TIMEOUT Bk001 

BUS MAP ARE YOU THERE? Bk001 
ii YES-SET agers by VALUE FOR 11/70 Bk001 
APL ae A MAP INDICA a Bk001 
72GO SET UP MAP REGIST BkK001 
; = COMPARISON VALUE FOR 18 BIT MAPPING ®8K001 
ZiCLEAN OFF STACK BKO01 


2 =MAKE SURE MAP INDICATOR TURNED OFF BKO01 
BkO01 


=200 IF MAP PRESENT BK001 
SEFILLED WITH APPROPRIATE COMPARISON VALUE 
; OUNTER BK 


sae at WITH MAPLO Bk001 

sl L MAP REGISTERS BkO01 
WITH THE VALUE 17000000 BkO01 
32DO ALL 31 REGISTERS Bk001 
+¢ INITIALIZE 40 m, LOADING 

DRESS OF FIRST *PAR"' 

7:LOAD EIGHT ‘PAR.'S'' AND EIGHT ‘PDR. 'S'' 
33 = 4K, UP, READ/WRITE 


sel 
2 ;UPDATE FOR NEXT 'P 
;;LOOP_UNTIL ALL ere ARE LOADED 


SR3 
3zENABLE 22 BIT MODE AND UNIBUS MAP Bk001 


+: TURN ON MEMOR 
osRTOUT. @#ERRVEC ::SET FOR TIME OUT 
a4SMAP ::1S MAP THERE? BKOO1 
ae SKIP BKOO1 
#SMMOUT,@4114 ::SET UP MEMORY ERROR VECTOR BKO01 
SERRVEC SS. avil6e 3 zLOCK OUT INTERRUPTS BK001 
#143776 3 ON NON-EX-MEM 
#40, (R2) t=MAKE A 1K STEP 
arssToP, (R2) 7 LAST 
+:NO--TRY IT 
th2) R2 33GET LAST BANK+1 
a¥sro +: TURN OFF MEMORY MANAGEMENT 
aySMAP +:1$ MAP THERE? BK001 
$SIZEX 33 IP 8K001 
OSA *: TURN OFF MAP BKO01 
#177744 RG ::SAVE MEMORY ERROR REGISTER BK001 
Rs, 9177744 7 CLEAR BITS IN REGISTER BKO01 


oR 


3 MEMORY TIMEOUT? BkKO001 


SEQ 0052 


Bk001 
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$KTOUT XIT 
R : MUST BE PARITY pei atts IT 
100000 016562 SKTNEX: #100000, $kKT11 SIKT1 NON-EXISTENT 
017130 000004 SCORE: #SCROUT , AMERRVEC er es TIMEOUT 


C R2 BANK 
1$: AD #4000,R1 i FINCREMENT BY 1k 
#40 0,R2 t:1K STEP 
*: TRAP ON TIME OUT 
77776, R1 


73LAS 
BNE :zNO=--TRY AGAIN 
$SCROUT: #4000,R1 


$SIZEX: #40,R2 : DROP BACK 
MO RO, SP RESTORE THE S 
(SP) +, @MERRVEC+2. : ;RESTORE ERROR VECTOR 
(SP) +. aMERRVEC 
(SP) + “aril y:RESTORE MEMORY ERROR VECTOR 


3zLAST ADDRESS 
;;LAST BANK 


s sRESTORE R4 
; RESTORE R3 
s RESTORE R2 
; ;RESTORE R1 
+ a “RO RESTORE RO 


T 

017206 SLSTAD: oe 0 3:CONTAINS THE LAST ADDRESS 

017210 $SLSTBK: .WOR 0 32CONTAINS THE LAST BANK 
-SBTTL SAVE ° AND RESTORE RO-R5 ROUTINES 


IB IOISIEI IIS IISIDIIOIOIIIISIOIOOISISIIOISIOIUIDIIUIOIDIUISISIOIUIOIIIOIUIIIIIOIIIOIIIDIO UII Tot 
“ RSAVE RO-R5 
P*CALL: 


SAVREG 
 SUPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
: ¥TOP===(+16) 


;* +2—-—=(+18) 
;® +4==-R5 


=” 8 
++ 
oOo 
‘1 
it 
bd 
We 


5 *+14=--R0 
SSAVREG: 
MOV 


EE LL Le Le metre eine mrinriowtert + + ++ + etre 
SHGSLOL LOLS MOPBORBIVNAVNAVVASSASSSALAS 


RO,~(SP) eS RO ON STACK 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


R5,~(SP) 

22(SP) ,=(SP) 

22(SP) ,-(SP) 

22(SP) .=(SP) ; 

22(SP) ,-(SP) 2SAVE PC OF CALL 
017246 





UNIBUS EXERCISER MACY11 -ugpishieecat™ Ry Say “79 ‘le: 


CZKUAE .P11 27-SEP-79 09:25 


;*RESTORE RO-R5 
3 *CALL: 


* 
017250 SRESREG: 
MO 


C 
49 PAGE 48 


E AND RESTORE RO=-R5 ROUTINES 


(SP)+,22(SP) 
(SP) +,22(SP) 
(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+,R5 


(SP)+, “RO 


RTI 
-SBTTL TYPE ROUTINE 


ARORA EIR IDOI OIC OOO IIIS IOISIOI IOI TOR IR Int ik 

“ RROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
; * THE ROUTINE WILL INSERT A NUMBER OF NULL FEED. 

;*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


wr 
USING A TRAP_ INSTRUCTION 
YPE ESADR 


TYPE 


001157 


017574 


017456 
001156 


SiPFLG 
1$ 


3$ 
RO,-(SP) 
a2 (SP) ,RO 
(RO)+,-(SP) 
4$ 

(SP) + 
(SP)+,RO 
#2, (SP) 
HT, (SP) 
8$ ; 
ACRLF , (SP) 


(SP) + 


SCHARCNT 
2$ 


PC ,STYPEC 
SFILLC,(SP)+ 


7 sRESTORE PC OF CALL 
;sRESTORE PS OF CALL 
:sRESTORE PC OF MAIN FLOW 
2 ¢RESTORE PS OF MAIN FLOW 


‘POP STACK INTO R2 
;sPOP STACK INTO R1 
;sPOP STACK INTO RO 


L_CHARACTERS AFTER A LINE 


:sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


231 ive A TERMINAL? 
HALT HERE IF NO TERMINAL 


TISAVE RO 
:iGET ADDRESS OF ASCIZ STRING 
: PUSH CHARACTER TO BE TYPED ONTO STACK 
':BR IF IT ISN'T THE TERMINAT 
t:IF TERMINATOR POP IT OFF THE STACK 
: RESTORE RO 
His 3 ay RETURN PC 


: BRANCH IF <HT> 
BRANCH IF NOT <CRLF> 


72POP <CR><LF> EQUIV 
:: TYPE A CR AND LF 


7s CLEAR CHARACTER we 


; CHARACTER 
ii1S 1T TIME FOR FILLER CHARS.?- 





D 
UNIBUS EXERCISER MACY11 sestibiatenesd we Rout -79 12:49 PAGE 49 


CZ2KUAE.P11  27=SEP=79 09:25 ROUT INE SEQ 0055 
2264 017404 001350 BNE 2$ :z1F NO GO GET NEXT CHAR 
2265 017406 013746 001154 MOV $NULL ,- (SP) SiGET # OF FILLER CHARS. NEEDED 
2266 ‘SAND THE NULL CHAR 
2267 017412 105366 000001 7$: DECB =: 1(SP) *=DOES A NULL NEED TO BE TYPED? 
2268 017416 002770 BLT 6$ TIBR IF NO-=GO_ POP THE NULL OFF OF STACK 
2269 017420 004737 017456 JSR PC, S$TYPEC *:G0 TYPE A NU 
2270 017424 105337 017574 DECB  $CHARCNT *:DO NOT COUNT” AS A COUNT 
soit 017430 000770 BR 7$ ;;LOOP 
eer :HORIZONTAL TAB PROCESSOR 
2275 017432 112716 000040 8$: MOVB = #"_, (SP) : sREPLACE TAB WITH SPACE 
2276 017436 004737 017456 9$: JSR PC, $TYPEC SE TYPE A SPACE 
2277. 017442 132737 000007 017574 BITB = #7. $CHARCNT ‘BRANCH IF NOT AT 
2278 017450 001372 BNE 9$ +: TAB STOP 
2279 017452 005726 TST (SP)+ ::POP SPACE OFF STACK 
2280 017454 000724 BR 2$ *:GET NEXT CHARACTER 
2281 017456 STYPEC: 
2282 017456 105777 161462 TSTB = @STKS ::CHAR IN KYBD BUFFER? :MJD001 
2283 017462 100022 BPL 10$ ;36R_IF NOT :MJDO01 
2284 017464 017746 161456 MOV a$TKB,-(SP) [GET CHAR *MJDO01 
2285 017470 042716 177600 BIC #177600, (SP) = STRIP EXTRANEOUS BITS =MJDO01 
2286 017474 122716 000023 CMPB ss WSXOFF,, (SP) T:WAS CHAR =MJD001 
2287 017500 001012 BNE 102$ ‘:BR IF wore :MJDO01 
2288 017502 101$: *MJDO01 
2289 017502 105777 161436 TSTB = @STKS s:WAIT FOR CHAR :MJDO01 
2290 017506 100375 BPL 101$ :MJDO01 
2291 017510 117716 161432 MOVB _— a$TKB, (SP) ::GET CHAR [MJDO01 
2292 017514 042716 177600 BIC #177600,(SP) =: STRIP IT :MJDO01 
2293 017520 122716 000021 CMPB —s HS XON, (SP) t:WAS IT XON? [MJDO01 
2294 017524 001366 BNE 101$ ::BR IF NOT 'MJDO01 
2295 017526 102$: :MJD001 
2296 017526 005726 TST (SP) + siFIX STACK :MJDOO1 
2297 017530 108: [MJDOO1 
2298 017530 105777 161414 TSTB = aSTPS ::WAIT UNTIL PRINTER IS READY 
2299 017534 100375 BPL 10$ MJD001 
2300 017536 116677 000002 161406 MOVB  2(SP),a$TPB :LOAD CHAR TO BE TYPED INTO DATA REG. 
2301 017544 122766 000015 000002 CMPB ss CR, 2( SP) HIS CHARACTER A CARRIAGE RETURN? 
2302 017552 001003 BNE 1$ CH IF NO 
2303 017554 105037 017574 CLRB SCHARCNT :: YES~=CLEAR CHARACTER COUNT 
2304 017560 000406 BR $TYPE TEXIT 
2305 017562 122766 000012 000002 1S: CMPBOML*F ne) 3318 CHARACTER A LINE FEED? 
2306 017570 001402 BEQ $TYP SZBRANCH IF YES 
2307 017572 105227 INCE Cree t:COUNT THE CHARACTER 
2308 017574 000000 SCHARCNT: WORD 0 SZ CHARACTER COUNT STORAGE 
2309 017576 000207 STYPEX: Ris PC 
2311 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
2313 FARA AERA AERA EE 
2314 SSTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
2315 S*OCTAL (ASCII) NUMBER AND TYPE IT 
3316 ; $1 YPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

** 
2318 i* MOV NUM, = (SP) : NUMBER TO BE TYPED 
2319 ie TYPOS *:CALL FOR TYPEOQUT 


UNIBUS EXERCISER 
CZKUAE .P11 


017774 


MACY11 eethenaat™ 


27-SEP-79 09:25 


000001 
020025 
000002 
000001 
000006 
000005 
020025 


000006 
020024 
020023 
000012 


020024 
177770 


020023 


020023 
020025 
020022 


war T-79 


AGE 50 
NARY TO OCTAL (ASCII) AND TYPE 


-BYTE 


12:49 PA 


N 
M 


:éNet on 8 FOR NUMBER OF DIGITS TO TYPE 


- :1=TYPE LEADING ZEROS 
 O=SUPPRESS LEADING ZEROS 


‘ #$TYPON--=-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


; #$TYPOS OR $TYPOC 


NUMBER TO BE TYPED 
SICAL FOR TYPEOUT 


: #STYPOC==-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


s* MOV NUM ,=-(SP) 
:* TYPON 
+ *CAL Ls 
i* MOV NUM, =-(SP) 
sk TYPOC 
$TYPOS: MOV a(SP) ,-(SP) 
MOVB 1(SP) ,SOF ILL 
MOVB (SP) +,$OMODE +1 
ADD #2, (SP) 
BR $TYPON 
$TYPOC: MOVB #1,SOF ILL 
MOVB » E+1 
$TYPON: MOVB #5, SOCNT 
MOV R3,-(SP) 
MOV R4,-(SP) 
MOV RS,-(SP) 
MOVB E+1,R4 
NEG 
ADD RS 
MOVB R4, SOMODE 
MOVB SOF ILL.R4 
MOV 12(SP) ,R5 
CLR R3 
1$: ROL R5 
BR 3$ 
2$: ROL RS 
ROL R5 
ROL R5 
MOV R5,R3 
3$: ROL R3 
DECB SOMODE 
BPL 7$ 
BIC #177770,R3 
BNE 4$ 
TST RG 
BEQ 5$ 
4$: INC RG 
BIS #°0O,R3 
5$: BIS #* LR3 
MOVB = R3,, BS 
TYPE 8s 
7$: DECB SOCNT 
BGT 2s 
BLT 6$ 
INC RS 


NUMBER TO BE TYPED 
SICAL FOR TYPEOUT 


3sPICKUP THE MODE 

;;LOAD ZERO FILL SWITCH 
:;NUMBER OF DIGITS TO TYPE 
; ADJUST RETURN ADDRESS 


3-SET THE ZERO FILL SWITCH 
7eSET FOR SIX(6) DIGITS 
73SET ys ITERATION COUNT 


R5 
SIGET THE NUMBER OF DIGITS TO TYPE 


+s SUBTRACT IT FOR MAX. ALLOWED 
7sSAVE_IT FOR USE 
7:GET THE ZERO FILL SWITCH 
2 ¢PICKUP THE INPUT NUMBER 
LEAR THE OUTPUT WORD 
: :ROTATE MSB INTO ‘'C’’ 


0 DO MSB 
:3FORM THIS DIGIT 


:GET LSB OF THIS DIGIT 
TYPE ‘- DIGIT? 


:3GET RID OF JUNK 
T FOR 0 


DON'T SUPPRESS ANYMORE 0'S 
ZIMAKE THIS DIGIT ASCII 
3 MAKE oeett mY NOT ALREADY 


+: INSURE LAST DIGIT ISN'T A BLANK 


SEQ 0056 


eae EXERCISER 


ZKUAE .P11 


017776 


020150 


MACY11 30A(1052) 
27-SEP-79 09:25 BINAR 


000002 


020200 
000020 
000055 
020242 
000040 


020232 


000004 


000001 


177777 


6$: 


04-OCT-79 


F 
12:49 PAGE 51 
Y TO OCTAL (ASCII) AND TYPE 


(SP) +, (SP) 





; G0 oe i DIGIT 


; R3 
TISET THE STACK FOR RETURNING 


; RETURN 
STORAGE FOR ASCII DIGIT 
;; TERMINATOR FOR TYPE ROUTINE 


ITCH 
F DIGITS TO TYPE 


SOMODE: .WORD 0 
.SBTTL CONVERT BINARY TO DECIMAL’ "AND TYPE ROUTINE 


PARE EEE EERE AERA REREERREREREREERERE EE 


*CALL 


$TYPDS: 


7$: 


MOV 
TYPDS 


NUM ,~ (SP) 


RO,-(SP) 


R5,-(SP) 
#20200,-(SP) 
20(SP) ,R5 
1$ 

R5 

#'=,1(SP) 


R 
#SDBLK ,R3 
#' ,(R3)+ 


R2 
$DTBL(RO) ,R1 
R1,R5 


4$ 
Re 


3$ 
R1 oR5 
R2 


5$ 
(SP) 
7 


(SP) 
6$ 

1(SP) -1(R3) 
#0. R?2 

Ro 

R2 (R3) + 
(RO) + 


S RTHIS ROUTINE IS USED TO CHANGE A yay BINARY anyon iy TO A _5-DIGIT 
SCII) NUMBER AND T 


GN WILL BE TYPED 


PO. 
>*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
> *REPLACED WITH SPACES. 


;;PUT THE BINARY NUMBER ON THE STACK 
3:G0 TO THE ROUTINE 


; «PUSH RO ON STACK 
;$ 
GET 


oe POINTER 
3-SET THE FIRST CHARACTER TO A BLANK 
7-CLEAR a’ mat — 

33:GET THE C 

a eH “BC ‘DIGIT 


I 
> :INCREASE THE BCD DIGIT By 1 


;zADD BACK THE CONSTANT 
he IF BCD DIGIT=0 
FALL THROUGH IF 


IF 0 
*STILL DOING LEADING 0'S? 
:iBR IF YES 


oe 
ee 


;:BR_IF NO 

3:YES--SET THE SIGN 

:MAKE THE BCD DIGIT ASCII 

oa IT 
T_ THIS CHARACTER IN THE OUTPUT BU 

7: JUST INCREMENT ING 


A SPACE IF NOT ALREADY A BY 


SEQ 0057 


Recent) 


G 
UNIBUS EXERCISER MACY11 oon wee onekt @ 79 12:49 PAGE 52 
CZKUAE .P11 27-SEP-79 09:25 VERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0058 


2432 020152 020027 000010 CMP RO,#10 CHECK THE TABLE INDEX 

2433 020156 002746 BLT 2$ :260 DO THE NEXT DIGIT 

2434 020160 003002 BGT 8$ 3360 y EXIT 

2435 020162 010502 MOV R5,R2 cert HE LSD 

2436 020164 000764 BR 6$ #69. CHANGE TO ASCII 

2437 020166 105726 8$: TSTB (SP)+ oy LSD THE FIRST NON-ZERO? 
2438 020170 100003 BPL 9$ ‘BR IF 

2439 020172 116663 177777 177776 MOVB -1(SP) ,=2(R3) sore aaet THE SIGN FOR TYPING 
2440 020200 105013 9$: CLRB (R3) 32;SET THE TERMINATOR 

2441 020202 012605 MOV (SP)+,R5 i: STACK INTO R5 

2442 020204 012603 MOV (SP)+,R3 33POP STACK INTO R3 

2443 012602 MOV (SP) +,R2 7ZPOP STACK INTO R2 

2444 020210 MOV (SP)+,R1 3 STACK INTO R1 

2445 020212 012600 MOV (SP)+,RO 72:POP STACK INTO RO 

2446 020214 104401 020242 TYPE , $DBLK >:;NOW TYPE THE NUMBER 

2447 020220 016666 000002 000004 MOV 2(SP),4(SP) ‘ADJUST THE STACK 

2448 020226 012616 MOV (SP)+, (SP) 

2449 020230 000002 RTI 7 RETURN TO USER 

2450 020232 023420 $DTBL: 10000. 

2451 020234 001750 1000. 

2452 020236 000144 100 

2453 020240 000012 10. 

2454 020242 000004 $DBLK: .BLKW 4 

o635 .SBTTL TRAP DECODER 

2457 SERRE RRR IRE EERE REE RRR RRR ERE EERE EEE EERE EERE EER ER 
2458 3*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’' INSTRUCTION 
2459 :*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
2460 :*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
ard! :>*GO TO THAT ROUTINE. 

2463 020252 010046 $TRAP: MOV RO,-(SP) SAVE RO 

2464 020254 016600 000002 MOV 2(SP) ,RO ::GET TRAP ADDRESS 

2465 020260 005740 TST -(RO) 7 BACKUP BY 2 

2466 020262 111000 MOVB (RO) ,RO ::GET RIGHT BYTE OF TRAP 

2467 020264 006300 ASL RO :POSITION FOR INDEXING 

2468 020266 016000 020306 MOV STRPAD(RO).RO  :: INDEX TO TABLE 

o68 020272 000200 RTS RO ~ ::G60 TO ROUTINE 

2471 

ies 3: THIS IS USE TO HANDLE THE ‘'GETPRI'' MACRO 

2474 020274 011646 $TRAP2: MOV (SP) ,-(SP) MOVE THE PC DOWN 

2475 020276 016666 000004 000002 MOV 4(SP) ,2(SP) ::MOVE THE. PSW DOWN 

ser8 020304 000002 RTI 7 RESTORE THE PSW 

oi .SBITL TRAP TABLE 

2480 *THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
eee! :*BY THE ‘‘TRAP’’ INSTRUCTION. 

2483 : ROUT INE 

2484 5 eeeeee= 

2485 020306 020274 $TRPAD: .WORD $TRAP2 

2486 020310 017306 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOQUT ROUT! 


NE 
2487 020312 017624 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (wITH LEADING ZEROS? 


UNIBUS EXERCISER 
CZKUAE .P11 


020314 
020316 
020320 


020322 


020330 


020332 
0 


020510 


MACY11 owen 


27-SEP-79 09:25 


020472 
000340 


160552 
020476 
020404 


020472 


160504 


020332 
000340 


047520 


000024 
000026 


000024 


000024 


000024 
000026 


042527 


aoe OCT 79 
RAP TABLE 


12 


$TYPOS 
$TYPON 
STYPDS 


$RDCHR 
$RDLIN 


. S$SAVREG :;CALL=SAVREG 
SRESREG ; ; CALL=RESREG 


-SBTTL POWER DOWN 


FL RARER AERA REE ARAAEEREKKERE EERE ERE ERE ERE EERE 


;POWER DOWN ROUTINE 


SPWRDN: MOV 


H 
749 PAGE 53 


37 CALL=TYPOS 
33 CALL=TYPON 
32CALL=TYPDS 


;-CALL=RDCHR 
; -CALL=RDLIN 


OWN AND UP ROUTINES 


TRAP+3(104403) 
TRAP +4 (104404) 
TRAP+5 (104405) 


TRAP +6 (104406) 


TRAP+7 (104407 
TRAPS 10(104410) SAVE RO-R5 ROUTINE 
TRAP+11(104411) RESTORE RO=-R5 ROUTINE 


A#SILLUP,Q@APWRVEC ;;SET 
#340, a#PWRVEC+2 ;;PRIO 
RO. tap) + PUSH 
R1,-(SP) 3 3PUSH 
R2,-(SP) 3: PUSH 
R3,-(SP) : PUSH 
R4,-(SP) 3 3PUSH 
R5,-(SP) 3; 3PUSH 
@SWR ,- (SP) 3 3PUSH 
SP, SSAVR6 3 SAVE 
PWRUP ,aA#PWRVEC ;;SET 
72 3 SHANG 


Ge FAST UP 


H RO ON STACK 
R1 ON STACK 
R2 ON STACK 
R3 ON STACK 
R4 ON STACK 
R5 ON STACK 


@SWR ON STACK 


SP 
UP VECTOR 
UP 


Hu TYPEIN CHARACTER ROUTINE 


Y TYPEIN STRING ROUTINE 


MmAAAAAASEASASSASELELSALARASASAASA RSL ASA A RAR RARER ARRAS RRR RAR SDS SSG 


“POWER - UP ss 


$PWRUP : 


1$: INC 


SPWRMG: .WORD 


SILLUP: 


SSAVR6: 0 
SPOWER: 


#SILLUP, @4PWRVE C ts FAST DOWN 


SSAVR6, SP 
SSAVR6 
$SSAVR6 

1$ 


(SP) +, a@SWR 


i:WAIT LOOP FOR THE TTY 
ZZWAIT FOR THE INC 
;0F WORD 


:POP_S RO 
#SPWRDN , AAPWRVE C igSET Ly THE NPOWER DOWN VECTOR 


#340, a#PWRVEC +2 ‘REPOR 


SPOWER 


72 


-ASCIZ <15><12>' POWER" 


T THE POWER F 


AILURE 
2 POWER FAIL MESSAGE POINTER 


THE POWER UP SEQUENCE WAS STARTED 


FORE THE POWER DOWN WAS COMPLETE 
T THE SP HERE 


. 
° LEAR E ERE REAR RE RARER ERR ERR ES 
MAAS AASAARSRASASLASLASARSRAA SALA SE RRR RR RRR RRR RARER RRR ASR RRR ASS OI 
MARR ALAALALALASLALLASASSRARASAR RE RAR RRR RRR RA RR RRR RRR AR RRR R RRR SSDS ES | 


SEQ 0059 


TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


I 
UNIBUS EXERCISER MACY11 30A(1052) 04-OCT-79 12:49 PAGE 54 
CZKUAE .P11 27-SEP-79 09:25 POWER DOWN AND UP ROUTINES 


2544 000001 - END 





UNIBUS EXERCIS 
CZKUAE .P11 


ADD20 
020510 


001606 
001604 
001612 
001610 
001614 
001602 
001664 


ER MACY11 30A(1052) 


27-SEP-79 09:25 


613 
108 
46 


6224 
1085 
948 


ee a ed ed eed ed 
— =A NIND 


WA NCOOO—% 


04-OCT-79 12:49 PAGE 56 

CROSS REFERENCE TABLE == USER SYMBOLS 
1088 1091 17574 
829 864 899 929 969 
1438 14642 1453 1462 1472 
794% 829% 864% 899% 929% 
1711-1761 
766 769 795* 800 803 
908 928* 975 1177% 1282s 
737 762% 768 796x 802 
978* 982 1012* 1103 1180 
938* 939 942 948 977 
1132* 1135" 11468* 1178* 1179 
582 641 681 985 987 
759% 793% 828% 863% 898% 
721% 758% 792% 827% 862s 
1444 

1290" 1414 1453* 

1454 

1291* 1417 1455* 

1288* 1452 

1287*  1451* 

1298* 1462 

1463* 

1299* 1361 1422 1465« 

1531* 

1365 1367 1460 

1296* 1459 

1295*  1461* 

1472* 

1473* 

1308* 1381 1428 1474 

1389 

1469* 

1305*  1470* 

1304* 1471 
6544 

1672 1680 
934 938 

1132-1135. 1148~——s«'1607 
737: 1637 

1163-1641 
564 575 660 

1645 1864 


976 
1498 


976* 


830* 
1443* 


SEQ 0061 
1272. 1281 1290 1298 
1551 1694 1775 1777 
1176" 1240 1281* 1407 
838  865* 870 873 





K 
UNIBUS EXERCISER MACY11 30A(1052) 04-OCT-79 12:49 PAGE 57 
CZKUAE .P11 27-SEP-79 09:25 CROSS REFERENCE TABLE == USER SYMBOLS 


1649 1874 1932 


1917 
991 


A 
4H 
3 


1633 1881 


984 1307 1389 1446 1464 1497 1531 1850 


— 
VERVE ILL Ieee 


, 
; 
1 
1 
1 
1 
1 
1 
7 
3 


1916* 





L 
UNIBUS EXERCISER MACY11 30A(1052) 04-OCT-79 12:49 PAGE 58 
CZKUAE .P11 27-SEP-79 09:25 CROSS REFERENCE TABLE == USER SYMBOLS 


015022 462 17834 
0 50 17834 


397 17834 


422 427 432 
344 178354. 
17834 


862 897 932 9474 973 
1261 1432 1597 16174 


579% 589* 591* 723* 931* 1856* 1858* 1861* 
2100* 2103* 2129% 2134* 2138 2155* 2166* 


14334 


7 
eeeeee | 200 6 6 ine 687 695 1809 1816 2486 2487 2488 2489 
005100 





UNIBUS EXERCISER MACY11 30A(1052) 04-OCT-79 12:49 PAGE 59 
CZKUAE .P11 27-SEP-79 09:25 CROSS REFERENCE TABLE == USER SYMBOLS 


fw 
uw 
= 


Nm 
” allan 


12584 
10634 


10594 
534* 535* 
2071 2121 


ah nd ad ed ed 
Sumer 
COWnn-— 

Fa 


OP SS Ss Ss > 9 2 2 22 12 
RBRBBR ez 


— 


1 
1 
1 
1 
5 


14374 


735 16914 


1184* 


1032 1278 


759 770 791 793 804 828 
1011 1016 1021 1027 1081 1127 





UNI 
CZK 


ZKUAE .P11 


BUS EXERCISER 


177776 
177776 


010122 
= 000024 


MACY11 30A(1052) 


27-SEP-79 09:25 


1129 1166 
394 40 


04-0(T-79 


12:49 PAGE 60 


CROSS REFERENCE TABLE == USER SYMBOLS 


1280 
763* 
* 


1 
16014 
541% 


1476* 
2133* 


2147 
5254 


552s 
1924 


1288 


791* 
1032* 


655* 


554 
1929 


1296 


797% 
1079* 


1131* 


560* 
1932 


1305 


826* 
1127* 


1134* 


564 
2509 


1445 


832* 
1172s 


2501* 


575 
2522* 


1452 
861* 

1278* 

2502* 


660 


1459 
867* 

1693* 

2511* 


1470 
896* 
1773* 


2517* 


1571 
902* 


2529* 





UNIBUS EXERCISER MACY11 30A(1052) 04-OCT-79 12:49 PAGE 61 





CZKUAE.P11 27-SEP-79 09:25 CROSS REFERENCE TABLE == USER SYMBOLS 
SW? = 000200 _ 874 
SWB = 000400 864 
Sw9 = 001000 5a 
51 007124 1279 14054 
S2 007156 1287 1413 
53 007210 1295  1420# 
54 007226 1304 1425 
TBITVE= 000014 127" 
THRUO 010342 573 16644 
TKVEC = 000060 1340 
TMPPWR 005606 11311146 
TPVEC = 000064 1354 
= 000034 1334 © -538* = «539 
TRTVEC= 000014 1284 
T 010722 1275, 1441-17720 
TST1 003252 570  717# 1832 
TST10 5 940 944 9654 
TST11. 004720 992 994  1005# 
TST12 005262 1035 1041. =: 10764 
TST13 005446 1092 «11184 
TST14 005626 1121 1163-11624 
TST15 2 1164 1187 12104 
TST16 0063 1216 1221-1030) 1235.—Ss«12714 
TST17 007074 1334 1353 «1372 ~=—«1393# 
TST2 0034 750# 
TST3 003542 756 27854 
TST4 003704 7 8204 
TSTS 004046 825  855# 
TST6 004210 860 
TST? 004352 895 9264 
TYMOUT 002550 591 629" (723 9311 
TYPDS = 104405 1813. 1820 «=. 2490 
TYPE = 104401 566617, (i64i(ié‘ titi‘ HSC‘ SC itCiS SS 70K——(itiC07—S—s«dB8Fs«sdB1HSSsC«éd1B8Q”—s«19119 
1927 1952. 1969 1971 1974 1976 1980 1987 2043 2046 2050 2258 2371 
2446 24864 = 2531 | 
TYPOC = 104402 1960 1984 24878 
TYPON = 104404 24898 
TYPOS = 104403 669 690 698 24884 
UIPARO= 177640 1634 
UIPARI= 177642 1644 
UIPAR2= 177644 1654 
UIPAR3= 177646 1 
UIPARG= 177650 1674 
UIPARS= 17765 16 
UIPAR6= 177654 1694 
UIPAR7= 177656 17 
UI 177 1524 
UIPDR1= 177602 1534 
UIPDR2= 177 1544 
UIPDR3= 177 1554 
UIPDR4= 177610 1564 
UIPORS= 177612 1574 
UIPDR6= 177614 1584 
UIPDR7= 177616 1594 
xa 010114 1587 1590 +=s-«1593 «1596 
XTST 005576 1139-11414 


UNIBUS EXERCISER 


CZKUAE .P11 


SMAPRG 016660 
SMMOUT 017052 


MACY11 30A(1052) 
27-SEP-79 09:25 


04-OCT-79 12:49 PAGE 62 
CROSS REFERENCE TABLE -=- USER SYMBOLS 


1944 
2277 2303* 


1927 1944 1952 1971 1976 


1220 1229 
894 1220 
1958 


1888* 


1980 


1840 
1229 


2059 


1870 
1872 


2259 


1872 
1894* 


2311 


1878* 
1899 





UNIBUS EXERCISER MACY11 30A(1052) 04-OCT-79 12:49 PAGE 63 


CZKUAE .P11 27-SEP-79 09:25 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0068 
W 16465 2 
SMSWR 016454 20614 
SMXCNT 015672 1889 18984 
16700 2111 21194 
L 001154 2684 1137 1147 2265 2311 
SNWTST= 1 7114 713 7414 743 7784 780 8134 815 8484 850 8834 885 9184 
920 9574 959 999 10694 1071 11114 1113 11524 1154 12034 1205 
12654 1267 13904 
SOCNT 020022 2343% 2372% 23854 
SOMODE 020024 2338% 2342% 2347 2350* 2361% 23874 
SOVER 015656 1851 1869 1877 1887 18954 
SPASS 001100 2434 1799% 1800* 1811 1833 1883 1899 
SPOWER 500 1142 2532 25374 
SPWRON 020332 540 1149 1614 25014 2529 
SPWRMG 020466 1137 1142* 1147* 25324 
SPWRUP 04 2511 25174 
SQUES 001222 2894 1944 2043 2059 2311 
SRDCHR 016176 20074 2493 
SRODEC= exeeee 2495 
SRDLIN 016316 20354 2494 
= keener | 2495 
SRDSZ = 000016 20284 
SREGAD 001160 272n 
001162 274H = =©=—518 659x 684% 697 768% 802% 837% 872% 907% 941% 1329" 1348* 
1516* 1539x 1558% 1709% 1783 
SREG1 001164 2754 = 769% = -B03* «838k «= 873% = 908k 942% «= (9B7e = 1036* =: 1103* = 1328* = 1347% =: 136 7* 
1385* 1482* 1483 1515* 1538% 1557 1710 1719 1720 1783 
SREG2 001166 276 631% 632% 770% 804% 839% 874% 909% 988% 1037* 1104% 1259" 1320« 
1323-1325" 1330 «=: 1368 1386" 1486 1665% 1666* 1711* 1733" 1774% 1783 
$REG3 001170 R444 aia 805* 840% 875% 910% 1038 1105" 1330» 1349% 1517% 1537* 1556s 
ab 
SREGG 001172 27 1039* 1303* 1383 1385 1426* 1713*% 1750* 1751* 1752 1783 
SREGS 001174 2798 594* 950* 1064* 1096* 1189* 1260* 1431* 1783 
017250 22124 2496 
SRTNAD 015410 1832 
SR2A = week 2497 
SSAVRE 017212 21 2495 
SSAVR6 020476 2510* 1 2519* 2520* 25364 
SSCOPE 015416 534 18494 
SSETUP= 000037 1944 533 534 536 538 540 542 543 544 546 1797 1850 1914 
1932 1939 1996 2065 
SSIZE 016476 20814 
SSIZEX 017134 2146 2148 1634 
016656 2105* 2108* 21134 2141 
SSTUP = 177777 1944 
SSVLAD 015630 1859 18904 
SVPC = 000232 22 233 
$SWR = 167400 2 14 19 20 21 22 23 24 286 287 288 543 
544 546 547 718 751 786 821 856 891 927 1006 1077 
1119 1163 1211 1272 1394 1792 1798 1825 1831 1833 1841 1842 1843 
1845 1850 1862 1864 865 1870 1871 1872 1879 1880 1881 1892 
1895 1898 1905 1906 7 1908 1909 1917 1924 1929 1932 1944 2533 
= 000300 25 26 1845 1846 1866 1867 
STIMES 001212 2 543*  1119% 1394* 1798* 1879 1886 1889* 1898 
$TKB 001146 2654 1396 1994 2011 2017 2284 2291 
$TKS 001144 2644 81994 2009 2015 2282 2289 


UNIBUS EXERCISER 


MACY11 30A(1052) 


CZKUAE .P11 27-SEP-79 09:25 


000021 
015426 
000000 
020023 


kkeeke 


020510 


04-OCT~79 12:49 PAGE 


64 
CROSS REFERENCE TABLE == USER SYMBOLS 


568 596* 597 


24914 
1890* 


23864 


2204 228 
6884 17834 1 
2311 24544 2 


22 
81 
51 


on 
Of 
13 


1257* 








UNIBUS EXERCISER 


CZKUAE .P11 

BE1 7514 
COMMEN 14 
ENDCOM 14 
ERROR 314% 
1350 

1734 
ESCAPE 14 
GETPRI 14 
GE TSWR 14 
MSSG 7104 
959 
T 14 
NEWTST 14 
12455 
NOGRNT 7404 
POP 4 
PUSH a 
REPORT 14 
SCOPE 324 
1393 
SETPRI 1a 
SETTRA 24784 
SETUP 14 
SKIP 4 
1143 
SLASH a 
SPACE 1374 
STARS 14 
749 

997 

1263 

1707 

2028 
SWRSU 1a 
TRMTRP 24784 
TYPBIN 14 
TYPDEC la 
TYPNAM a 
TYPNUM 14 
TYPOCS if 
TYPOCT a4 
TYPTXT 14 
SSCMRE 2354 
SSCMT™M 2354 
SSESCA 14 
SSNEWT a 
1265 
$$SET 24784 
$$SKIP 1 
1143 
~EQUAT 14 
.KT11 14 
. SETUP 14 
. SWRHI 7 





754 
137. 


MACY11 30A(1052) 
27-SEP-79 09:25 


788 


—_- —— 
WICO\WINOD 
—O— =|) 
COD OPW 


04-OCT-79 12:49 PAGE 66 
CROSS REFERENCE TABLE == MACRO NAMES 
858 893 
1335 1354 1373 
1339 1358 1377 
841 876 911 
1540 1559 1629 
777# 780 124 
1071 13104 1113 
778 813 848 
2522 2523 
2503 2509 
820 855 890 
2490 2493 2494 
825 860 895 
1230 1235 1334 
292 308 464 
819 848 854 
1075 1093 1111 
1392 1402 1404 
1746 1755 1770 
2313 2390 2457 
697 
672 676 685 
277 278 279 
283 284 285 
778 813 848 
2490 2493 2494 
825 860 895 
1230 1235 1334 


850 
12024 
957 


1005 


1814 


957 


992 


1076 


997 


994. 


885 
12654 
1069 


1118 


1069 


-1035 


1162 


1111 


1041 


920 


1152 


1210 


1152 


1092 


SEQ 0070 


1331 
1714 


9564 


1203 


1271 


1121 


741 
964 
1236 
1689 
1999 


1203 


112% 


UNIBUS EXERCIS 
CZKUAE .P11 
SACT1 la 
.SAPTB 4 
~SAPTH 14 
. SAPTY a4 
-SASTA 14 
-$SCATC 14 
.SCMTA 14 
. $DB2D 1a 
.$DB20 Tj 
-SDIV 14 
OP 14 
SERRO a4 
SERRT 14 
. T 1A 
14 
. SRAND 14 
SRDDE 14 
. SRDOC 14 
SR2AZ a4 
. SSAVE 14 
. $SB2D Tj 
. $SB20 1a 
.$SCOP 14 
SSIZE 14 
STRAP 4 
$STYPB 14 
STYPD 14 
STYPE 4 
$TYPO 1a 
$40CA 14 
1170 14 
. ABS. 020510 


ER MACY11 30A(1052) 
27=SEP=79 09:25 
on 224 
PL] 194 
on 235 
24 = 1786 
2" §=1899 
oe 8 §=61944 
on 2497 
on 1991 
oF §=62179 
of =: 1835 
of = 2065 
of 2455 
oe 2388 
24 = 2224 
ce 862311 
0006 


ERRORS PETECTED: 0 
-LST/CRF /SOL=(400,4531ISYSMAC.C4,[400,2465 ]CZKUAE.P11 


CZKUAE , CZKUAE 
RUN-TIME: 42 


51 3_SECONDS 


: 4 
RUN-TIME RATIO: 472/98=4.8 


CORE USED: 3 


3K (65 PAGES) 


G 
04-OCT-79 12:49 PAGE 67 
CROSS REFERENCE TABLE == MACRO NAMES 


SEQ 0071 


